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

Здравствуйте уважаемые форумчане.
Если нетрудно помогите исправить скрипт. В программирование я совсем не разбираюсь, печально.
Есть скрипт который ищет по ссылке ищет нужный текст с помощью регулярных выражений.
С 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

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