将过程名称返回为字符串

Question

我希望能够收到一条错误消息，告诉我我的错误在哪个程序中。

以下是我可能使用的基本错误处理程序的示例：

err_Handler:
   Dim msg As String
    If Err.Number <> 0 Then
        msg = "Error #" & Str(Err.Number) & " error Line: " & Erl & Chr(13) & _
               Err.Description
        MsgBox msg, , "Error", Err.HelpFile, Err.HelpContext
    End If
    Exit Sub

我希望我的消息框返回“Report_btn_click中的错误”行。要实现这一点，我需要能够将我的过程名称作为字符串，以便我可以放置"error in " & strProcName。

但是，我无法弄清楚如何做到这一点或从哪里开始？！

甚至可能吗？

谢谢！