H εντολή select

Η εντολή select μας επιτρέπει να κατευθύνουμε τη ροή του προγράμματος προς μια συγκεκριμένη τιμή ανάλογα με την τιμή μιας παράστασης.

Συντάσσεται ως εξής:

	Select Case παράσταση
	Case λίστα τιμών1
		εντολή1
		εντολή1α
		...
	Case λίστα τιμών2
		εντολή2
		...
	...
	Case Else
		εντολή ν
		...
	End Select

Ανάλογα με ποια από τις τιμές ισούται η τιμή της παράστασης εκτελούνται οι αντίστοιχες εντολές.
Αν καμία από τις τιμές δεν ταυτίζεται με την τιμή της παράστασης τότε εκτελείται η εντολή που ακολουθεί την Case Else (αν υπάρχει), αλλιώς δεν εκτελείται καμία εντολή.
Οι τιμές για κάθε case μπορεί να είναι
- μια έκφραση (π.χ. 42 ή i + 9),
- ο ορισμός μιας περιοχής με τη χρήση to (π.χ. 1 to 10)
- μια σύγκριση της τιμής της απόφασης με μια έκφραση με τη χρήση της λέξης Is (π.χ. Is > 100)
- ή ένα σύνολο από από τα παραπάνω χωρισμένα με , (π.χ. 3 to 5, 50, 90, is > LastVal)

Παράδειγμα:

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