"Case" がありません。
Select...End Select 構造で、Case ステートメントが指定されていません。Select...End Select 構造の正しい使用例を次に示します。
Select Case testexpression
[Case expressionlist-n
[statements-n]] . . .
[Case Else expressionlist-n
[elsestatements-n]]
End Select
このエラーを解決するには
Select...End Select 構造に必要なすべての要素が含まれていることを確認します。