Private Sub Bezeichnung()
  On Error GoTo Fehler
  '---
  '  Anweisungen
  '---
 
  ...
 
 
  'Fehlermeldung überspringen
  GoTo Ende
 
Fehler:
  If Err.Number <> 0 And Err.number <> NULL then
    'Fehlermeldung aufrufen
    ErrHandler Err, "Verursacher: Bezeichnung"
  Else
    Resume
  End If
Ende:
End Sub
 
 
Public Sub ErrHandler(Fehler As ErrObject, Quelle As String)
  '---
  ' Fehlermeldung vorbereiten und ausgeben
  '---
 
  'Fehlermeldung vorbereiten
  With frm_Fehler
    'Fehlerinformationen an Dialog übergeben
    .lbFehler(0).Caption = Fehler.Description
    .lbFehler(1).Caption = Fehler.Number
    .lbFehler(2).Caption = Quelle
    .lbFehler(3).Caption = Fehler.Source
  End With
 
  Else
 
    Resume Next
 
  End If

Fehler.Raise (Fehler.Number)