Select Case ... Case ... End Select

Sub test()

    Dim i As Integer
    i = 2

    'iの値が...のとき
    Select Case i
        Case 1
            '1のとき
            MsgBox "大吉"
        Case 2
            '2のとき
            MsgBox "中吉"
        Case 3
            '3のとき
            MsgBox "末吉"
    End Select

End Sub