Удаление строк из файла

'объявление переменной типа "Строка", размер 1 байт на символ, от 0 до 2 миллиардов
Dim Строка As String
 
'объявление переменной типа "Строка", размер 1 байт на символ, от 0 до 2 миллиардов
Dim ИскомыйТекст As String
'в переменную ИскомыйТекст помещаем искомое словосочетание
ИскомыйТекст = "Строка2"
 
'объявление переменной типа "Строка", размер 1 байт на символ, от 0 до 2 миллиардов
Dim Файл_с_которого_считываем As String
Файл_с_которого_считываем = "L:\1.txt"
 
'объявление переменной типа "Строка", размер 1 байт на символ, от 0 до 2 миллиардов
Dim Временный_файл As String
Временный_файл = "L:\11.txt"
 
'делаем файлы не скрытыми, чтобы не было ошибки
SetAttr PathName:=Файл_с_которого_считываем, Attributes:=vbNormal
SetAttr PathName:=Временный_файл, Attributes:=vbNormal
 
'скачиваем сначала нужные строки во временный файл
Open Файл_с_которого_считываем For Input As #1
Open Временный_файл For Output As #2
 
Dim Количество_строк_в_исходном_файле As Long
 
Do Until EOF(1) = True
Количество_строк_в_исходном_файле = Количество_строк_в_исходном_файле + 1
    Line Input #1, Строка
    'если искомого словосочетания нет в данной строке исходного файла, тогда ...
    If InStr(Строка, ИскомыйТекст) = 0 Then
        'записываем эту строку во временный файл
        Print #2, Строка
    End If
Loop
 
Close #1
Close #2
 
'перекачиваем данные из временного файла обратно в исходный
Open Файл_с_которого_считываем For Output As #1
Open Временный_файл For Input As #2
 
Dim Количество_строк_в_исходном_файле1 As Long
 
Do Until EOF(2) = True
Количество_строк_в_исходном_файле1 = Количество_строк_в_исходном_файле1 + 1
    Line Input #2, Строка
    Print #1, Строка
Loop
Close #1
Close #2

Private Sub Command1_Click()
Dim F As Long, Fn As String
Dim MyText As String
 
Text1.Text = ""
F = FreeFile
Fn = App.Path & "\http.txt"
Open Fn For Input As #F
Do Until EOF(F)
  Line Input #F, MyText
  If Left(MyText, 4) <> "http" Then
     Text1.Text = Text1.Text & MyText & vbCrLf
   End If
Loop
Close #F
 
Kill Fn
 
Open Fn For Output As #F
Print #F, Text1.Text
Close #F
End Sub

FindText = "http://site.ru/"
Const ForReading = 1
Const TristateFalse = 0
 Set FSO = CreateObject("Scripting.FileSystemObject")
 FileName = "" & CommonDialog1.FileName & ""
 Set F = FSO.OpenTextFile(FileName, ForReading, TristateFalse)
 WorkStrAll = F.ReadAll
 WorkStrAll = Replace(WorkStrAll, "" & FindText & "", "")
 Set F = FSO.CreateTextFile(FileName, True)
 F.Write (WorkStrAll)
 F.Close