Error Trapping(Variable Overflow)

[Dayo312]

Im trying to make a error
handler for my program for
a overflow, err.number 6
Can someone tell me why this
doesnt work?

 
Public Number As Integer

Private Sub Form_Load()
ErrorTrapper
End Sub

Private Sub ErrorTrapper()
On Error GoTo ErrorHandler   ' Enable error-handling routine.
Number = 2.21222222222222E+27
Exit Sub      ' Exit to avoid handler.
ErrorHandler:   ' Error-handling routine.
   Select Case Err.Number   ' Evaluate error number.
      Case 6   ' "Res Index not there" error.
      Exit Sub
   End Select
End Sub