error handling by checking the Error code : Error Handler « Language Basics « VBA / Excel / Access / Word

error handling by checking the Error code

     Public Sub ErrorHandling()
        On Error GoTo ErrorHandling_Err
        Dim dblResult As Double
        dblResult = 10 / InputBox("Enter a number:")
        MsgBox "The result is " & dblResult
        Exit Sub
        Select Case Err.Number
        Case 13         ' Type mismatch - empty entry
        Case 11         ' Division by 0
           dblResult = 0
           Resume Next
        Case Else
           MsgBox "Oops: " & Err.Description & " - " & Err.Number
           Resume ErrorHandling_Exit
        End Select
     End Sub


Related examples in the same category

1.An Example of Code Without Error Handling
2.A Simple Error-Handling Routine
3.An Example of Error Handling Using the On Error GoTo Statement
4.Ignoring an Error and Continuing Execution
5.Using Resume Conditionally Based on User Feedback
6.Placing a Resume Next Statement in Your Error Handler
7.Using the Resume Statement to Specify Where Execution Continues After an Error Occurs
8.Looking Up the Call Stack for a Previous Error Handler
9.Read user choice when dealing with error