'Select Case' の終わりには、対応する 'End Select' を指定しなければなりません。
更新 : 2007 年 11 月
Select または Select Case ステートメントに対応する End Select ステートメントがありません。Select ブロックの最後には End Select ステートメントが必要です。
Error ID: BC30095
このエラーを解決するには
この Select ブロックが、入れ子になった Select ブロックの一部である場合は、すべてのブロックが正しく終了していることを確認します。
Select ブロックの最後に End Select ステートメントを追加します。