Sub AdressFeldMake()
TextAdressFeld = Text1(6)
End Sub

Sub AdressFeldMake()
Debug.Print "Hier Start  AdressFeldMakeFormular AgentForm"
On Error GoTo AdressFeldMake_Error
Dim ProzedurName As String
ProzedurName = "AdressFeldMake Formular AgentForm"
 
    TextAdressFeld =  Text1(6)
 
   On Error GoTo 0
   Debug.Print "Hier Ende   AdressFeldMakeFormular AgentForm"
   Exit Sub
 
AdressFeldMake_Error:
 
    MsgBox "Fehler in Zeile " & Erl & " Nr.: " & Err.Number & " (" & _
      Err.Description & ") in  AdressFeldMake AgentForm"
Resume Next
End Sub

Debug.print "Hier Start  {PROCEDURE_NAME}{MODULE_TYPE} {MODULE_NAME}"   
On Error GoTo {PROCEDURE_NAME}_Error
Dim ProzedurName As String
ProzedurName="{PROCEDURE_NAME} {MODULE_TYPE} {MODULE_NAME}"
 
	{PROCEDURE_BODY}
 
   On Error GoTo 0
   Debug.print "Hier Ende   {PROCEDURE_NAME}{MODULE_TYPE} {MODULE_NAME}"  
   Exit {PROCEDURE_TYPE}
 
{PROCEDURE_NAME}_Error:
 
	MsgBox "Fehler in Zeile " & Erl & " Nr.: " & Err.Number & " (" & _
  Err.Description & ") in  {PROCEDURE_NAME} {MODULE_NAME}"
resume next