Switch-Statement (Select Case)

Select Case aValue
Case 1

Case 2, 3

Case 4 To 7

Else

End Select