Public Function AddLog(ByVal sLogText As String)
  Dim F As Integer
 
  F = FreeFile
  Open App.Path & "\LogFile.log" For Append As #F
  Print #F, sLogText
  Close #F
End Sub

AddLog "neuer Eintrag"

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de