If <voorwaarde> Then
<instructie(s)>
[Else
<instructie(s)>]
End If

Voorbeeld:

Dim getal1, getal2, result
getal1=InputBox(”Geef het eerste getal: “, “Invoeren getallen”)
getal1=CDbl(getal1)
If getal1 <= 100 Then
getal2=InputBox(”Geef het tweede getal: “, “Invoeren getallen”)
getal2=CDbl(getal2)
MsgBox “Tweede getal werd ingelezen, , “Controle resultaat”
End If