Public Sub Entwicklermopdusein()
On Error GoTo Entwicklermodusein_Fehler
Anweisung1
Anweisung2
Anweisung3
Anweisung4
 
Entwicklermodusein_Fehler:
If Err.Number <> 0 Then
    MsgBox Err.Number & " " & Err.Description & " " & " " & _
      "ModulGlobal!Entwicklermodusein"
    Resume Entwicklermodusein_Exit
End If
 
Entwicklermodusein_Exit:
    Exit Sub
End Sub