Select Case <voorwaarde>
{Case <waarde>
<instructie(s)>}
[Case Else
<instructie(s)>]
End Select

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