Sub cmdCase_Click()
Dim intAge As Integer
intAge = 12
Select Case intAge
Case 0
MsgBox "You Must Enter a Number"
Case 1 To 18
MsgBox "You Are Just a Kid"
Case 19, 20, 21
MsgBox "You are Almost an Adult"
Case 22 To 40
MsgBox "Good Deal"
Case Is > 40
MsgBox "Getting Up There!"
Case Else
MsgBox "You Entered an Invalid Number"
End Select
End Sub