Dim iNumber As Integer = 69
Select Case number
    Case 1 To 5
        Debug.WriteLine( "The number is between 1 to 5" )
    Case 6, 7, 8
        Debug.WriteLine( "The number is 6, 7, or 8" )
    Case 9 To 10
        Debug.WriteLine( "The Number is between 9 to 10" )
    Case 69
    Debug.WriteLine( "It's Trevor's favorite number!" )
    Case Else
        Debug.WriteLine( "The number isn't found in the switch statement" )
End Select