Select
    Case <expression>
        statement1
        ...
    [Case
        statement2
        ...]
    [Case Else
        statementN
        ...]
EndSelect