vb6.0如何读取运行堆栈中的内容

Question

我现在想在程序运行时读取到运行堆栈中的内容，如图所示，在module1.writeErrLog中弹出调用来源，即如运行堆栈中所示的内容，但是不知道该如何实现，求赐教

Answer 1

Dim MyStr As String
Dim LStr As String
MyStr=""
Open "C:\123.txt" For Input As #1 '以读的方式打开文件
Do While Not EOF(1) ' 循环至文件尾
Line Input #1, LStr '读入一行
MyStr = MyStr & LStr & vbCrLf
Loop
Close #1 ' 关闭文件。
Print MyStr

追问

完全不是一回事儿