If <voorwaarde> Then
<instructie(s)>
{ElseIf <voorwaarde> Then
<instructie(s)>}
End If

Const basis = 1000
Dim naam, cat, factor, premie
naam = InputBox(”Geef jouw naam: ” ,”Inlezen naam”)
cat = InputBox(”Geef jouw categorie: ” ,”Inlezen categorie”)
If cat = “1″ Then
factor = 1.05
ElseIf cat = “2″ Then
factor = 1.03
ElseIf cat = “3″ Then
factor = 1.01
ElseIf cat <> “3″ Then
factor = 1
End If
Premie = basis * factor
Msgbox “Jouw premie is gelijk aan: ” & premie, ,”Premie van ” & naam