Копирование определенных строк с одного .txt на другой *.txt - VB

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

Ребзи помогите пожалуйста. Задача такая, есть текстовой файл с множ-во строк. Нужно вытащить оттуда фразу и записать в другой текстовой файл. Дано: 111.txt '-в этом текстовом файле 1000 строк' 1)Нужно из этого файла, найти слово sende(отправитель) и receiver(получатель); 2) скопировать 4 строки после sender, receiver и записать в другой 222.txt файл. Текстовый файл примерно выглядит так: Asvoi found cell Shanks Leah Sender: Lions Ltd Company Ad.Trutskogo street 12 Post code 101029 Ph.number : 84957088888 Bla odoudhd hsgsh Fdurbd focmfndn Receiver: OOO Romashka Ad. Solovev street 15/7 Post code 18262 Ph.number: 84956362637 Jdjdjd jdjdjdjd jdjdjdjd lla Так как новичок в Visual Basic 6, пожалуйста сделайте так чтобы я смог запустить ))))) Заранее благодарю !

Решение задачи: «Копирование определенных строк с одного .txt на другой *.txt»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
 
Dim infile, outfile, i, fso, arg, extp
If WScript.Arguments.Count = 0 Then
  MsgBox "Использование:" & vbLf & _
    WScript.scriptname & " ИмяФайла1 ИмяФайла2 ..." & vbLf & _
    "или выделите один или несколько файлов в Проводнике и перетащите их на значок скрипта."
  WScript.Quit
End If
Set fso = CreateObject("scripting.filesystemobject")
For Each arg In Array("c:\temp\111.txt", "c:\temp\Копия 111.txt")
  Set infile = fso.opentextfile(arg)
  extp = InStrRev(arg, ".")
  Set outfile = fso.createtextfile(Left(arg, extp - 1) & "_1" & Mid(arg, extp))
  Do While Not infile.atendofstream
    Select Case LCase(infile.readline)
    Case "sender:", "receiver:"
      For i = 1 To 4
        If Not infile.atendofstream Then
          outfile.writeline infile.readline
        Else
          Exit Do
        End If
      Next
    End Select
  Loop
Next