Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Using Is with the Case Clause

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