[RESOLVED] Overflow: 'Cint': Simple Cint Question?

[manofsteel00]

If I recieve nonnumeric input on the following lines of below:

        strTempBoxQty = Mid(Trim(Scan7.Text), 2, Len(Scan7.Text) - 1)
        
        '**********************************************************************
        If IsNumeric(CInt(strTempBoxQty)) = False Then
            Call beep
            strWhichScanControl = "Scan7"
            frmDialog.Label1.Caption = "Non-numeric input supplied."
            frmDialog.Show
            Scan7.Text = ""
            Exit Sub
            'blnScanError = True
        End If

Then I will receive the following error message:
"An error was encountered while running this program: Overflow: 'Cint'"

Rather thanrecieving the error message I coded.

This is frustrating as I would like to see my error message. Could this have anything to do with how I am using Cint() and IsNumeric()?

Any help would be greatly appreciated! Thanks!