Изменения кода HTML при загрузки страници. - VB

Формулировка задачи:

Кто знает как произвести поиск по коду HTML в странице браузера т.е. у меня самодельный браузер я хочу чтобы когда начинается загрузка страници нажимаеш кнопку и процедура ищет слова в коде страници например имя переменной найдя выделяет строку и заменяет на другую значения что искать и че заменять берутся из двух текстовых полей.
Зарание благодарен.

Решение задачи: «Изменения кода HTML при загрузки страници.»

textual
                            Листинг программы 
                        

                            <font size="2"><font color="blue">Option</font> <font color="blue">Explicit</font>
<font color="green">'References: Microsoft HTML Object Library</font>
<font color="green">'Controls: Microsoft Internet Controls</font>
<font color="green">'добавить на форму WebBrowser с именем WebBrowser1</font>
<font color="blue">Private</font> <font color="blue">Sub</font> Form_Load()
    <font color="blue">Dim</font> mStr <font color="blue">As</font> <font color="blue">String</font>
    <font color="blue">Dim</font> iDoc <font color="blue">As</font> MSHTML.IHTMLDocument
    <font color="blue">Dim</font> mDoc <font color="blue">As</font> MSHTML.HTMLDocument
    <font color="blue">Dim</font> mBody <font color="blue">As</font> IHTMLElement
    <font color="green">'загрузка документа</font>
    WebBrowser1.Navigate "http://www.ya.ru/"

    <font color="blue">While</font> WebBrowser1.Document <font color="blue">Is</font> <font color="blue">Nothing</font>
    <font color="green">'ждём создания документа</font>
        <font color="blue">DoEvents</font>
    <font color="blue">Wend</font>

    <font color="blue">Set</font> iDoc = WebBrowser1.Document
    <font color="blue">Set</font> mDoc = WebBrowser1.Document
    <font color="blue">While</font> mDoc.body <font color="blue">Is</font> <font color="blue">Nothing</font>
    <font color="green">'ждём создания тела документа</font>
        <font color="blue">DoEvents</font>
    <font color="blue">Wend</font>
    mStr = mDoc.body.outerHTML
    mStr = Replace$(mStr, "Найти!", "Жми!")
    
    mDoc.body.innerHTML = mStr

    <font color="blue">Set</font> iDoc = <font color="blue">Nothing</font>
    <font color="blue">Set</font> mDoc = <font color="blue">Nothing</font>

<font color="blue">End</font> <font color="blue">Sub</font><br>
</font>
                        