VBScriptでSelect文を使うサンプルです。

文法

Select Case 比較対象
Case 比較値1
処理1
Case 比較値2
処理2
Case Else
処理3
End Select

サンプル

Dim input
input = InputBox("1か2か3を入力してください。")

Select Case input
  Case "1"
    MsgBox "入力値：1"
  Case "2"
    MsgBox "入力値：2"
  Case "3"
    MsgBox "入力値：3"
  Case Else
    MsgBox "それ以外：" & input
End Select

Pocket