Private Sub Test()
  ' Fehlerbehandlung aktivieren
  On Error Goto ErrHandler
 
  ' Code der Prozedur
  ...
 
  ' Fehlerbehandlung ausschalten
  On Error Goto 0
  Exit Sub
 
ErrHandler:
  MsgBox "Es ist ein Fehler aufgetreten: " & vbCrLf & _
    CStr(Err.Number) & ", " & Err.Description
End Sub

On Error Goto 0

Don't , be