式がありません。
Select...End Select 構造で、1 つ以上の値を持つ Case 節と Case Else ステートメントが同じ行に記述されています。Case Else ステートメント (どの条件にも当てはまらない場合に実行されるステートメント) は、別の行に記述する必要があります。Select...End Select 構造の正しい使用例を次に示します。
Select Case testexpression
[Case expressionlist-n
[statements-n]] . . .
[Case Else expressionlist-n
[elsestatements-n]]
End Select
このエラーを解決するには
Case Else ステートメントを別の行に記述します。