Как удалить строку из файла?

Option Explicit
DeleteLastLines "C:\Test\file.txt", 1
 
Sub DeleteLastLines(File, Count)
   Dim i, c
   With CreateObject("ADODB.Stream")
      .Type = 1: .Open
      .LoadFromFile File
      .Position = CreateObject("Scripting.FileSystemObject").GetFile(File).Size
      For i = .Position - 1 To 0 Step -1
         .Position = i
         If CStr(.Read(1)) = ChrB(13) Then c = c + 1:_
         If c = Count Then .Position = i: .SetEOS: Exit For
      Next
      .SaveToFile File, 2: .Close
   End With
End Sub

FileIn = "Z:\Box_In\test.txt"
 
With CreateObject("Scripting.FileSystemObject")
    Set TmpFile = .OpenTextFile(FileIn + ".tmp", 2, True)
    With .OpenTextFile(FileIn, 1, False)
        s = .ReadLine
        Do
            TmpFile.WriteLine (s)
            s = .ReadLine
        Loop While Not .AtEndOfStream
        .Close
        TmpFile.Close
    End With
    .DeleteFile FileIn
    .MoveFile FileIn + ".tmp", FileIn
End With

With WScript.Arguments
    If .Count > 0 Then
        FileIn = .Item(0)
    Else
        MsgBox "Файл не указан", 16
        WScript.Quit
    End If
End With