Language Basics VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Language Basics
  4. Raising an Error
Sub TestRaiseError()
    On Error GoTo TestRaiseError_Err
    Dim sngResult As String
    Err.Raise 11
    Exit Sub
TestRaiseError_Err:
    msgBox "Error #" & Err.number & ": " & Err.Description
    Exit Sub
End Sub