Private Sub ToolbarMain_ButtonClick(ByVal Button As MSComctlLib.Button)
    On Error GoTo HandleError
 
    'Hier der ganz normale Code
 
    Exit Sub 'Ist das Programm ohne Fehler hier angekommen, wird die Prozedur 
    ' verlassen
HandleError:
MsgBox "Fehler-Nr.: " & Err.Number & vbCrLf & Err.Description
'Dies liefert ein Meldungsfenster mit Fehler-Nr. und Beschreibung
'evt.auch mal Err.LastDllError anstelle von Err.Number testen
End Sub

Gr??e, J?rgen