Choose

La funzione Choose restituisce il valore scelto all'interno di una lista posta fra parentesi.

Public Sub Button1_Click()

 Dim x, b As Byte
 Dim s As String

 x = InputBox("Immetti un numero fra 1 e 4:")

 s = “Stringa1”
 b = 38

' Sarà restituito il valore dell'elemento della lista corrispondente - nell'ordine di posizione da sinistra - al numero immesso in x:
 Print  Choose(x, “Stringa2”, 38, s, b)

End

La funzione Choose supporta direttamente stringhe (da porre ovviamente fra virgolette), valori numerali, nonché variabili.