Dim F As Integer
Dim sBuffer As String
Dim nCount As Long
Dim i As Long
Dim sLines() As String
 
F = FreeFile
Open "datei.htm" For Binary As #F
sBuffer = Space$(Lof(F))
Get #F, , sBuffer
Close #F
 
sLines = Split(sBuffer, vbCrLf)
nCount = UBound(sLines)
 
F = FreeFile
Open "datei.htm" For Output As #F
For i = 81 To nCount
  Print #F, sLines(i)
Next i
Close #F

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de