On Error GoTo FehlerMelder
On Error GoTo 0
' Dein Code
Exit Function
 
FehlerMelder:
Err.Raise Err.Number, vbCrLf & "* Teilen-Modul Module1 in Zeile: " & Erl & " " _
  & FehlerInfo & " - " & Err.Source, _
              Err.Description, Err.HelpFile, Err.HelpContext
Resume Next

On Error GoTo FehlerMelder
'Dein Code
 
On Error GoTo 0
Exit Sub
 
FehlerMelder:
Call FehlerAuswertung("Command1_Click")
Resume Next

On Error GoTo FehlerMelder
 
On Error GoTo 0
Exit {PROCEDURE_TYPE}
 
FehlerMelder:
FehlerInfo = ""
Err.Raise Err.Number, vbCrLf & "* {PROCEDURE_NAME}-{MODULE_TYPE} {MODULE_NAME}" & _
  "in Zeile: " & Erl & " " & FehlerInfo & " - " & Err.Source, _
              Err.Description, Err.HelpFile, Err.HelpContext
Resume Next

Debug.Print "Hier Start {PROCEDURE_NAME}-{MODULE_TYPE} {MODULE_NAME}"  
On Error GoTo FehlerMelder
 
On Error GoTo 0
Exit Sub
 
FehlerMelder:
Call FehlerAuswertung("{PROCEDURE_NAME}")
Resume Next