If ... Then ... ElseIf ... Else ... End If

Sub test()

    Dim i As Integer
    i = 4 '他の数字も試してみてください
   
    If i = 3 Then
        'i=3のとき
        MsgBox "iは3です"
    ElseIf i = 4 Then
        'i=4のとき
        MsgBox "iは4です"
    Else
        'i=3ではなく、i=4でもないとき
        MsgBox "iは3と4以外です"
    End If

End Sub