Language Basics VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Language Basics
  4. An Example of Error Handling Using the On Error GoTo Statement
Sub SimpleErrorHandler()
    On Error GoTo SimpleErrorHandler_Err
    Dim sngResult As Single
    sngResult = 1 / 0
    Exit Sub
SimpleErrorHandler_Err:
    msgBox "Oops!"
    Exit Sub
End Sub