Met een Select Case ... End Select statement kan je nagaan of een voorwaarde vervuld is, en een hadneling ondernemen indien die voorwaarde al dan niet vervuld is. De syntaxis ziet er zo uit. Anders dan bij If kan je verschillende voorwaarden tegelijk testen
Select Case waardediemoetgetestworden
Case eerstemogelijkheid
wattedooenineerstegeval
Case tweedemogelijkheid
wattedoenintweedegeval
Case Else
wattedoenindeanderegevallen
End Select
Bijvoorbeeld:
Dim Number As Integer
' ...
Select Number
Case 1 To 5
MsgBox("Between 1 and 5")
Case 6, 7, 8
MsgBox("Between 6 and 8")
Case 9 To 10 ' Number is 9 or 10.
MsgBox("Greater than 8")
Case Else
MsgBox("Not between 1 and 10")
End Select