If

|

Sub test()

    Dim i As Integer
    i=3

    If i = 3 Then
        'iが3のとき
        MsgBox "iは3です"
    End If

End Sub