VB6 und TextStream

[keksi77]

Ich möchte via TextStream in VB6 eine Textdatei auslesen und eine Menge x an Zeilen löschen welche ich definiert habe.
Nur weiss ich nicht wie ich die Zeile löschen kann.
Habe schon im google gesucht aber nichts gefunden.
Hoffe hier kann mir jemand helfen.

Folgende Codezeilen sind als Sample gedacht.

-------------------------------
Dim FileSystemObject, TextStream As Object
Set FileSystemObject = _
CreateObject("scripting.filesystemobject")
Set TextStream = FileSystemObject.opentextfile(App.Path _
& "\DatFiles\" & File1.FileName)

Do Until TextStream.Line = 'nicht löschen'
'hier soll gelöscht werden
Loop
-------------------------------

Wie kann ich im Stream diese eine Zeile löschen?
Kann mir jemand einen Hinweis oder ein,zwei Zeilen Code senden?

Danke
Horst