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 a$ As String

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

  a$ = “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, a$, b)

End

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