|testexpression||number or text string|
|expressionlist-n||mandatory if Case appears. Delimited list of one or more expressions.|
|statements-n||One or more statements executed if testexpression matches any part of expressionlist-n.|
|elsestatements-n||One or more statements executed if testexpression doesn't match any of the Case clauses.|
If testexpression matches any Case expressionlist expression, then the statements following that Case clause are executed up to the next Case clause (or for the last clause, up to End Select). Control then passes to the statement following End Select. If testexpression matches an expressionlist expression in more than one Case clause, then only the statements following the first match are executed.
The Case Else statement is used to indicate the elsestatements to be executed if no match is found between the testexpression and an expressionlist in any of the other Case selections. Although not required, it is a good idea to have a Case Else statement in your Select Case block to handle unforeseen testexpression values. If no Case expressionlist matches testexpression and there is no Case Else statement, then execution continues at the statement following End Select.
Select Case statements can be nested. Each nested Select Case statement must have a matching End Select statement.
Dim Color, nVar
nVar = 1
Select Case nVar
Case 1 Color = "red"
Case 2 Color = "green"
Case 3 Color = "blue"
Case Else MsgBox "Bad color"