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

Sub test()

    Dim i As Integer
    i = 4
   
    If i = 3 Then
        'i=3のとき
        MsgBox "iは3です"
    Else
        'i=3ではないとき
        MsgBox "iは3ではありません"
    End If

End Sub