Sub irgendwas()
  On Error Goto fehler
  Dim a as integer
  Dim b as integer
 
  b = a / 0   ' Division durch Null, Fehler wird ausgelöst
 
  Exit Sub
 
fehler:
  Fehlermeldung(SUBNAME)
  Resume Next
End Sub
 
Sub Fehlermeldung(SUBNAME)
 
  MessageBox.Show ("Fehler in Prodezur oder Funktion " & SUBNAME & "" & _
    "aufgetreten!!")
 
  ...
  Datei öffnen
  Fehlermeldung schreiben
  Datei schließen
  ...
 
End Sub