Module Module1
Sub Main()
Dim n As Integer = 7
Select Case n
Case 1
Console.WriteLine("1")
Case 2 To 5
Console.WriteLine("2 To 5")
Case 6, 7, 8
Console.WriteLine("6, 7, 8")
Case 9 To 12
Console.WriteLine("9 To 12")
Case Else
Console.WriteLine("Case Else: Not between 1 and 12")
End Select
End Sub
End Module
' run:
'
' 6, 7, 8