Markieren und Kopieren von WORDA bis WORDB

Ich will folgendes markieren:
Alles ab dem Anfang von WORDA bis zum Anfang von WORDB
WORDA und WORDB sind immer eindeutig.

so sieht zb, die Datei aus mit noch mehr Inhalt:
lalalaallaa
lalalala

WORDB est est est est (
fülltextfülltextfülltextfülltextfülltext
fülltextfülltextfülltext()
fülltextfülltextfülltext;
) WORDA

lalalala
llaallaa
lalalalal

rauskommen, soll das hier:

WORDB est est est est (
fülltextfülltextfülltextfülltextfülltext
fülltextfülltextfülltext()
fülltextfülltextfülltext;
)

das soll dann wiederum in eine Datei geschrieben werden, aber das soll mal nicht das Problem sein

Das ganze sollte mit VB6.0 funktionieren. Sollte halt als Markro o.Ä. aufgerufen werden können.

es wäre vielleicht schon sehr hilfreich, wenn mir jemand sagen kann wie ich folgendes mache:
Ich suche nach WORDA und nun will ich wissen in welcher Zeile es sich befindet, wie kann ich das auslesen ?

Ich hoffe doch mal, irgendwer weis eine Lösung.


Gruß
Flo

strInFile = "D:\Infile.txt"  
strOutFile = "D:\Outfile.txt"  
Set fso = CreateObject("Scripting.FileSystemObject")  
If fso.FileExists(strInFile) Then
	strInput = fso.OpenTextFile(strInFile, 1).ReadAll
	intStart = Instr(strInput, "WORDB")  
	intEnd = Instr(strInput, "WORDA")  
	strOutput = Mid(strInput, intStart, intEnd-IntStart)
	fso.OpenTextfile(strOutFile, 2, True).Write strOutput
End If

strInFile =
> "D:\Infile.txt"  
> strOutFile = "D:\Outfile.txt"  
> Set fso =
> CreateObject("Scripting.FileSystemObject")  
> If fso.FileExists(strInFile) Then
> 	strInput = fso.OpenTextFile(strInFile,
> 1).ReadAll
> 	intStart = Instr(strInput,
> "WORDB")  
> 	intEnd = Instr(strInput,
> "WORDA")  
> 	strOutput = Mid(strInput, intStart,
> intEnd-IntStart)
> 	fso.OpenTextfile(strOutFile, 2, True).Write
> strOutput
> End If
>