怎么获取父函数的名称

如何获取父函数的名称
我定义了两个函数：
Public Sub A()
    MsgBox("This is A funtion.")
    B()
End Sub

Public Sub B()
    MsgBox("Function B is called by" & ??)
End Sub

??处我想得到是函数A的名称，即"A"
问题是，在函数B中如何获取目前调用者（父函数）的名称？
注：不想通过参数告知函数B正在调用都为A，因为我不想多加一个传递参数。 如何获取父函数的名称
[解决办法]
StackTrace ，看帮助，里面有
[解决办法]
Private  Sub A()
Console.WriteLine("This is A funtion.")
B()
End Sub


Private  Sub B()
Dim st As New StackTrace(True)
Console.WriteLine("Function B is called by  " & st.GetFrame(1).GetMethod().Name.ToString())
End Sub