txt / csv förändring

Hej,

Har ett problem som jag skulle behöva ha hjälp med.
Får en text file från ett system som egentligen är en CSV.
Filen ser ut så här:

DATA <DATUM>
mellanslag
mellanslag
DATA;DATA;DATA;DATA;DATA mellanlag
DATA;DATA;DATA osv....

Jag skulle filja får bort den övre delen och spara om filen.. dvs de 3 översta raderna. Så att det blir...

DATA;DATA;DATA;DATA;DATA mellanlag
DATA;DATA;DATA osv....

Hittade et exempel som fungerade fin men ett par rader data . Men när jag testa med riktig data (22MB ) så gick CPU i taket och jag pallade inte att vänta. Har någon nån ide om hur jag skulle kunna göra det bättre ?

strInputFile = "Test.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Const intForReading = 1
Set objInputFile = objFSO.OpenTextFile(strInputFile, intForReading, False)
If Not objInputFile.AtEndOfStream Then
      objInputFile.SkipLine
Else
      WScript.Quit
End If
strContents = ""
While Not objInputFile.AtEndOfStream
      If strContents = "" Then
            strContents = objInputFile.ReadLine
      Else
            strContents = strContents & VbCrLf & objInputFile.ReadLine
      End If
Wend
objInputFile.Close
Set objInputFile = Nothing
Set objOutputFile = objFSO.CreateTextFile(strInputFile, True)
objOutputFile.Write strContents
objOutputFile.Close
Set objOutputFile = Nothing
Set objFSO = Nothing