RosettaCodeData/Task/Conditional-structures/VBScript/conditional-structures-3.vb

Select Case Expression
    Case Value1: statement
    Case Value2: statement
    ...
    Case ValueN: statement
    Case Else:   statement
End Select

Select Case Expression
    Case Value1
        statements
    Case Value2
        statements
    ...
    Case ValueN
        statements
    Case Else
        statements
End Select