Public Sub LogMessage(ByVal Message As String, Optional ByVal LogFileName 
                                   As String = "")
 
        MsgBox("1: *" & LogFileName & "*")
 
        If LogFileName.Length = "" Then
            ' Dateiname anhand des aktuellen Datums festlegen
            LogFileName = Application.StartupPath & "\EventLog_" & _
              Format$(Now, "yyyy-mm-dd") & ".log"
        End If
 
        MsgBox("2: *" & LogFileName & "*")
 
        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
 
        MsgBox("3: *" & LogFileName & "*")