поиск по ссылке текста с помощью регулярных выражений

[trezubec45]

Здравствуйте уважаемые форумчане.
Если нетрудно помогите исправить скрипт. В программирование я совсем не разбираюсь, печально.
Есть скрипт который ищет по ссылке ищет нужный текст с помощью регулярных выражений.
С pattern я чуть чуть разобрался, сделал пару шаблонов, все работает. Но теперь возникла необходимость выдергивать по шаблону не из ссылке, а из текстового файла.
То есть верхнюю часть я так понимаю нужно изменить, а как это сделать не знаю.
Пример скрипта:
URL = "Site.ru"

With CreateObject("WinHttp.WinHttpRequest.5.1")
.Open "GET", URL, False
.SetRequestHeader "Pragma", "no-cache"
.SetRequestHeader "Cache-Control", "no-cache"
.Send : Text = .ResponseText : .Abort
End With

Dim ofs, of, fname, str

Set fso = CreateObject("Scripting.FileSystemObject")
fname = "D:\Результат.txt"

Set of = fso.CreateTextFile(fname, true)

If Err Then WScript.Quit

With New RegExp
.Pattern = "<p>(.+?)<\/p>"
On Error Resume Next
str = .Execute(Text)(0).Submatches(0)
If str <> "" then of.WriteLine str
End With

of.Close
Буду очень признателен за вашу помощь!