Dim Number
Number = 8 ' 変数を初期化します。
Select Case Number ' Number を評価します。
Case 1 To 5 ' Number の値が 1 〜 5 の場合。
Debug.Print "1 から 5 の間"
' この例では、Number に 8 を代入しているため、True と評価されるのは次の Case 節だけです。
Case 6, 7, 8 ' Number の値が 6 〜 8 の場合。
Debug.Print "6 から 8 の間"
Case 9 To 10 And Number < 11 ' Number の値が 9 または 10 の場合。
Debug.Print "9 または 10"
Case Else ' その他の値の場合。
Debug.Print "1 から 10 以外の数値"
End Select