There is no way.
When I have wanted to know this, I have had to add a global variable, and upon entering the sub, 1st thing:
Code:
Private Sub Command4_Click()
gstrSubName = "Command4_Click()"
' More code . . .
End Sub
When code is compiled, all sub names, variable names. etc, are eliminated and turned into more machine-compatible tokens, which later get turned into specific addresses.