Sub TueWas()
  ' Fehlerbehandlun aktivieren
  On Error Goto ErrHandler
 
  ' ... hier jetzt dein eignentlicher Code
 
  ' Fehlerbehandlung ausschalten
  On Error Goto 0
  Exit Sub
 
ErrHandler:
  ' Fehler in log-Datei speichern
  WriteFile App.Path & "\fehler.log", _
    Format$(Now,"dd.mm.yyyy hh:nn:ss") & ";" CStr(Err.Number) & ";" & _
    Err.Description, True
End Sub

' Hilfsfunktion zum Schreiben in eine Datei
Public Function WriteFile(ByVal sFile As String, ByVal sBuffer As String, _
  Optional ByVal bAppend As Boolean = False, _
  Optional ByVal bAppendCrLf As Boolean = True) As Boolean
 
  Dim F As Integer
 
  If Len(sFile) = 0 Then Exit Function
 
  F = FreeFile
  If bAppend Then
    Open sFile For Append As #F
  Else
    Open sFile For Output As #F
  End If
  If bAppendCrLf Then
    Print #F, sBuffer
  Else
    Print #F, sBuffer;
  End If
  Close #F
  WriteFile = True
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de