Diese Mehrfachentscheidung war im zweiten Kursteil zur Prüfung von User-Namen erforderlich, um Ihnen über Ihren Namen Zutritt zum Programm zu gewähren.

Dim Nutzer As String
Sub Eröffnung1()
Nutzer =InputBox("Bitte Ihr Name.", _
"Nutzererlaubnis")
Select Case Nutzer
 Case "Meier"
 Call Begruessung
 Case "Schulze"
 Call Begruessung
 Case "Friedrich"
 Call Begruessung
 Case Else
 Call abgelehnt
End Select
End Sub

Auch hier konnten Sie schon beim Testen schrittweise verfolgen, dass der Nutzer, wenn er einen der geprüften Namen eingegeben hatte, begrüßt wurde und Zutritt zum Programm erhielt.

Darstellung der Fallauswahl

Ein Anweisungsblock wird abgearbeitet, wenn die Variable einen der vorgesehenen Werte besitzt. Alternativ wird ein Alternativblock, wenn vorhanden, gewählt. Andernfalls wird die gesamte Fallauswahl ohne Reaktion verlassen.

Die vorgesehenen Werte sind im obigen Beispiel die Namen "Meier", "Schulze" usw. Bei Gleichheit mit dem Inhalt der Variable Nutzer erfolgt die "Begrüßung", bei Ungleichheit wird die Alternative "abgelehnt" gewählt.