Instrução Select...Case
Define um ou mais blocos de instruções dependendo do valor de uma expressão.
Select Case condição Case expressão Bloco de instruções [Case expressão2 Bloco de instruções][Case Else] Bloco de instruções End Select
condition: Any expression that controls if the statement block that follows the respective Case clause is executed.
expression: Any expression that is compatible with the condition type expression. The statement block that follows the Case clause is executed if condition matches expression.
Sub ExampleRandomSelect
Dim iVar As Integer
iVar = Int((15 * Rnd) -2)
Select Case iVar
Case 1 To 5
Print "Número de 1 a 5"
Case 6, 7, 8
Print "Número de 6 a 8"
Case 8 To 10
Print "Maior que 8"
Case Else
Print "Fora do intervalo de 1 a 10"
End Select
End Sub