Select Case παράσταση Case λίστα τιμών1 εντολή1 εντολή1α ... Case λίστα τιμών2 εντολή2 ... ... Case Else εντολή ν ... End Select
Dim Number As Integer Number = InputBox("Enter a Number") Select Case Number ' Evaluate Number. Case 1 To 5 ' Number between 1 and 5. MsgBox "Between 1 and 5" Case 6, 7, 8 ' Number between 6 and 8. MsgBox "Between 6 and 8" Case Is > 8 And Number < 11 ' Number is 9 or 10. MsgBox "Greater than 8" Case Else ' Other values. MsgBox "Not between 1 and 10" End Select