Private Sub Bla_Bla()
  <font color=green>' Fehlerbehandlung aktivieren</font>
  On Error Goto ErrHandler
 
  <font color=green>' Hier Dein Code...</font>
  ...
  Exit Sub
 
ErrHandler:
  MsgBox "Fehler " & CStr(Err.Number) & vbCrLf & _
    Err.Description
End Sub