式がありません。

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 ステートメントを別の行に記述します。

参照

Select Case ステートメント