Public Function Write2LogFile(ByVal strgLogText As String, Optional ByVal strFileName As String) As Boolean
'Autor: Heiko Hommes
'Datum: 23.04.2004
'Beschr: füllen einer log datei
'        sollte der dateiname leer sein, dann wird der name der db genommen

Dim varFreeFile As Variant

On Error GoTo Write2LogFile_Error

varFreeFile = FreeFile

If strFileName = "" Then
    strFileName = Left(CodeDb.Name, Len(CodeDb.Name) - 4) & ".log"
End If

Open strFileName For Append As #varFreeFile

On Error GoTo 0

strgLogText = Now() & vbTab & vbTab & strgLogText

Print #varFreeFile, strgLogText

Close #varFreeFile

Write2LogFile = True

Write2LogFile_Error:

End Function