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

Set FSO = CreateObject("Scripting.FileSystemObject")
    Set f = FSO.OpenTextFile("test.txt", 1)
    Dim strs()
    
    i = 0
    
    Do While Not f.AtEndOfStream
        str = f.ReadLine
        
        ' Что-нибудь делаем с прочитанной строкой
        ReDim Preserve strs(i)
        strs(i) = str
        
        i = i + 1
    Loop
    
    f.Close
    
    i = 0
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set f = FSO.CreateTextFile("test.txt", True)
    
    For i = 0 To Ubound(strs) - 1
        If i <> 0 Then
            f.WriteLine(strs(i))
        Else
            f.WriteLine(strs(i))
        End If
    Next
    
    f.Close
    
    msgbox "Готово!"

Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.GetFile("12345678.txt")
 
Set TextStream = File.OpenAsTextStream(1)
 
pos=0
 
While Not TextStream.AtEndOfStream
    Stri = TextStream.ReadLine()
    pos  = pos+len(Stri)+2
Wend
 
TextStream.Close
 
plast = pos-len(Stri)-2
 
Set WshShell = CreateObject("WScript.Shell")
 
cmd="fsutil file seteof "+"12345678.txt "+Cstr(plast)
 
WshShell.Run cmd
 
msgBox "OK"