Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

A Simple Error-Handling Routine

Sub TestError2() On Error GoTo TestError2_Err     Debug.Print 1 / 0     msgBox "I am in Test Error"     Exit Sub TestError2_Err:     If Err = 11 Then         msgBox "Variable 2 Cannot Be a Zero", , "Custom Error Handler"     End If     Exit Sub End Sub