Sub MaPremièreSub()
LogCallStack "MaPremièreSub"
...
End Sub
Sub MaDeuxièmeSub()
LogCallStack "MaDeuxièmeSub"
...
End Sub
Sub LogCallStack (strProcName As String)
Dim n As Integer
n = FreeFile()
Open "C:\test.txt" For Output As #n
Print #n, strProcName
Close #n
End Sub