Reinventing the Web
By Al Williams
Dr. Dobb's Sourcebook May/June 1997
<b>(a)</b> On Error Resume Next Some_Operation If Err.Number <> 0 Then ... Another_Operation If Err.Number<> 0 Then ... . . . End Sub </p> <b>(b)</b> On Error GoTo ErrHandle Some_Operation Another_Operation Exit Sub ErrHandle: ' Put Error code here End Sub
Example 3: Using the On Error GoTo statement.