Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Looking Up the Call Stack for a Previous Error Handler

Sub Func1()     On Error GoTo Func1_Err     Debug.Print "I am in Function 1"     Call Func2     Debug.Print "I am back in Function 1"     Exit Sub Func1_Err:     msgBox "Error in Func1"     Resume Next End Sub Sub Func2()     Debug.Print "I am in Func2"     Call Func3     Debug.Print "I am still in Func2" End Sub Sub Func3()     Dim sngAnswer As Single     Debug.Print "I am in Func3"     sngAnswer = 5 / 0     Debug.Print "I am still in Func3" End Sub