如何获取父函数的名称

我定义了两个函数：
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，因为我不想多加一个传递参数。