getting current procedure name

[tom taol]

sub aaa()
~~~~~
msgbox currentProcedureName
end sub

thus, i want to show aaa in messagebox.

 

[JMB]

The only way I know how to do that is

sub aaa()
Const strProcedure As String = "aaa"
......
msgbox strProcedure
End Sub