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