Getting sub or function name, programmatically

[cappy2112]

In vb6, Is there a programmatic way of getting the current sub or function name, similar to a form name

that is ...

the name of a form can be found by Me.Name.


Is there an equivalent for a sub or function ..

sub AddTotal(x as integer, y as integer)

' body of sub

msg="An error ocurred in" & sub.name
msgbox msg

end sub

Obviously, this syntax doesn't work, sub.name,
it's just an example.