Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Select Case Statements with comparison operator

Sub Check_Typing_Speed()      Dim varTypingSpeed As Variant      Dim strMsg As String      varTypingSpeed = 35      Select Case varTypingSpeed          Case ""              End          Case Is < 0, 0, 1 To 50              strMsg = "1"          Case 50 To 60              strMsg = "2."          Case 60 To 75              strMsg = "3."          Case 75 To 99              strMsg = "4."          Case 100 To 200              strMsg = "5."          Case Is > 200              strMsg = "6."      End Select      Debug.Print strMsg  End Sub