Парсинг

[OrBiT_DaRk]

Вот откопал код на офф сайте Microsoft

PHP код:

Dim WC As New WebClient
        Dim Strings, Result As String
        Strings = WC.DownloadString("http://www.lol.ru/")
        WC.Dispose()
        Result = Pars("<title>", "</title>", 0)
        MsgBox(Result) 


Он должен зайти на сайт

"http://www.lol.ru/"

Потом спарсить код от <title> до </title>.
И показать все это в MsgBox.
Но почему то этого не происходит! Ошибок в исходном коде не нашло.
Помогите с кодом. Что бы спарсить информацию от одного слова к другому.

[Hellost]

Цитата: Сообщение от OrBiT_DaRk Result=Pars("<title>","</title>",0)

Тут ты парсишь пустоту.

 Dim net As New Net.WebClient()
        Dim src, Result As String
        src = net.DownloadString("http://google.ru")
        Result = Pars(src, "<title>", "</title>", 0)
        MsgBox(Result)