Select

Select Case segSelect#

Case 0 : Print "0"

Case 1, 2 : Print "1, 2"

Case 3 To 5 : Print "3 TO 5"

Case Is >= 6 : Print ">=6"

Case Else : Print "Else"

End Select