select-case.vb

Dim number As Integer = 3
        
Select Case number
    Case 1 To 5
        Console.WriteLine("Between 1 and 5, inclusive")
    Case 6, 7, 8
        Console.WriteLine("Between 6 and 8, inclusive")
    Case 9 To 10
        Console.WriteLine("Equal to 9 or 10")
    Case Else
        Console.WriteLine("Not between 1 and 10, inclusive")
End Select