I am using VB5. Just wondering if for unexpected errors there is a way to programmatically get the current procedure name for the error handling routine to log out.

i.e.

Code:
On Error Goto ErrorHandler

    Err.Raise 1234

    Exit Sub

ErrorHandler:
   Msgbox "Error in Procedure: " & ?ProcedureName? & ". " & Err.Description