Is Select Case code work this way? Although the number is available within the Select Case, it reads only CASE ELSE and prompt me a messagbox according below. What is wrong?

VB Code:
  1. Private Sub txtantdriver_Validate(Cancel As Boolean)

  2. Dim Number As Integer

  3.  
  4. Select Case Number

  5.  
  6.     Case "1"

  7.     txtantdriver.Text = "The Insured."

  8.     

  9.     Case "2"

  10.     txtantdriver.Text = "Any other person who is driving on the Insured's order or with his permission."

  11.  
  12.     Case "3"

  13.     txtantdriver.Text = "Ant person who is driving on the Insured order or with permission."

  14.     

  15.     Case "4"

  16.     txtantdriver.Text = "Any other person provided he is in the PolicyHolder employ is driving on his order or with his permission."

  17.  
  18.     Case "5"

  19.     txtantdriver.Text = "Any person provided he is in the PolicyHolder employ and is driving on thier order or with their permission."

  20.     

  21.     Case Else

  22.     MsgBox "Case Number not found. Please Try again", vbExclamation, "Case Number"

  23.  
  24. End Select