You created a Select…End Select construct, but included a Case clause that contains one or more values along with a Case Else statement. The Case Else statement (the fall-through case) must appear on its own line. The following demonstrates the correct usage of the Select…End Select construct.
Select Case testexpression [Case expressionlist-n [statements-n]] . . . [Case Else expressionlist-n [elsestatements-n]] End Select
To correct this error
Create a new line for the Case Else statement.