Åben en txt fil og går 2 linier op og indsæt ny tekst

Jeg skrive tilskriver data til en eksisterende fil via dette script:

      Dim fso, f, filespec

    Set fso = CreateObject("Scripting.FileSystemObject")
      filespec = Server.Mappath("/replies_" & ID & ".txt")
    Set f = fso.OpenTextFile(filespec,8)
      f.WriteLine"<DIV>Nye linie</DIV>"
    f.Close
   
    Set f=nothing
    Set fso=nothing


Men jeg har et stort behov for at den efter at have åbnet filen først sletter eller går 2 liner op inden den skriver den nye kode.

Hvordan gør man det?