Call Return Text

Public Sub MySubroutine1() 
   Call MySubroutine2(1) 
   Call MySubroutine2(2) 
   Call MySubroutine2(3) 
   Call MySubroutine2(4) 
End Sub 

Public Sub MySubroutine2(ByVal iValue As Integer) 
    If (iValue = 3) Then 
        Debug.Assert False 
    End If 
End Sub 

The Call Stack dialog box displays the subroutines and functions that have not completed.
Every time a subroutine, function or property subroutine is called it is added to the list.
You can display the Call Stack dialog using the (Ctrl + L).