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

Формулировка задачи:

Здравствуйте, Есть TXT файл с примерным содержимым:

qwerty 123456 qwe123 123 1http://site.ru/http://site2.ru asdfghjkl 2342c3http://site3.ru/index.html

Нужно удалить все строки в которых присутствует текст: "http" удалить все ссылки.. Читаю файл построчно до конца файла в переменную: CuString отслеживаю когда попадается текст "http" в ней, но не знаю как стирать эти строчки из файла.. В какую сторону рыть ?

Решение задачи: «Удаление строк из файла»

textual
                            Листинг программы 
                        
 
                        
                          
                    
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