Language Basics VisualBasic Script

Sub ifTest5()
      Dim intNum As Integer
      intNum = 2
      Select Case intNum
      Case 1
            Debug.Print "This is the lowest number"
      Case 15
            Debug.Print "This is the highest number"
      Case Else
            Debug.Print "The number is between 1 and 15"
      End Select
End Sub