Código:
Dim n1 as integer, n2 as integer
Dim TextoFinal As String
TextoFinal=""
n1=inStr(TextoGlobal,"Number")
n2=InStr(TextoGlobal,"Owner & Address")
If n1 > 0 and n2 > 0 then
TextoFinal = TextoFinal & Mid(TextoGlobal, n1, n2-n1)
End If De esta forma sigues buscando las siguientes claves inicial y final, y vas incrementando TextoFinal...
Bueno, yo te lo pongo en lenguaje propio de VB... Supongo que tengas que adaptarlo al de VBScripts...