<code>Dim F As Integer
Dim sInhalt As String
 
F = FreeFile
Open "c:log.htm" For Binary As #F
sInhalt = Space$(Lof(F))
Get #F, , sInhalt
Close #F
 
Open "c:log.htm" For Output As #F
Print #F, Format$(Now, "dd.mm.yyyy hh:nn:ss")
Print #F, ""
Print #F, sInhalt
Close #F</code>