Sub selectCase()
Dim myNumber As Integer
myNumber = 9
Select Case myNumber
Case Is <= 10
MsgBox "The number is less than or equal to 10."
Case 11
MsgBox "You entered 11."
Case Is >= 100
MsgBox "The number is greater than or equal to 100."
Case Else
MsgBox "The number is between 12 and 99."
End Select
End Sub