Public Class clsLog
 
    Public Sub Initialize()
 
        AddHandler Application.ThreadException, AddressOf GeneralErrorHandler
 
    End Sub
 
    ' zentrale Fehlerbehandlung
    Private Sub GeneralErrorHandler(ByVal sender As Object, _
      ByVal e As System.Threading.ThreadExceptionEventArgs)
 
        ' Fehler in LogFile protkollieren
        LogMessage(e.Exception.Message, Application.StartupPath & _
          "\EventLog.log")
    End Sub
 
    Public Sub LogMessage(ByVal Message As String, Optional ByVal LogFileName _
      As String = "")
        If LogFileName.Length = "" Then
            ' Dateiname anhand des aktuellen Datums festlegen
            LogFileName = Application.StartupPath & "\EventLog_" & _
              Format$(Now, "yyyy-mm-dd") & ".log"
        End If
 
        Try
            ' Datei öffen (Text anhängen)
            Dim oStream As IO.StreamWriter = System.IO.File.AppendText( _
              LogFileName)
 
            ' Datum und Uhrzeit autom. eintragen
            oStream.WriteLine(Now)
 
            ' Message (Fehlermeldung) speicherrn
            oStream.WriteLine(Message & vbCrLf)
 
            ' Datei schließen
            oStream.Close()
 
        Catch ex As Exception
 
        End Try
    End Sub
End Class

Dim Log As New clsLog
 
        Call Log.Initialize()