Dim sBuffer As String
Open "wwwlogfile.log" For Binary As #1
sBuffer = Space$(Lof(1))
Get #F, , sBuffer
Close #1
 
Dim sLines() As String
sLines = Split(sBuffer, Chr$(10))
 
Dim i As Long
For i = 0 To UBound(sLines)
  Debug.Print sLines(i)
Next i

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de