[AccessD] A2K: Get Current Sub Name

Hello all
Is there a way to determine the current sub name once you are in it then display it
Is there a Current Sub Property? etc

eg  (PSEUDO Code)
Private Sub MySub()
Msgbox "My Sub Name is " & Application.SubName
End sub

Many thanks in advance

Darren