Option Explicit\'References: Microsoft HTML Object Library\'Controls: Microsoft Internet Controls\'добавить на форму WebBrowser с именем WebBrowser1Private Sub Form_Load()    Dim mStr As String    Dim iDoc As MSHTML.IHTMLDocument    Dim mDoc As MSHTML.HTMLDocument    Dim mBody As IHTMLElement    \'загрузка документа    WebBrowser1.Navigate "http://www.ya.ru/"    While WebBrowser1.Document Is Nothing    \'ждём создания документа        DoEvents    Wend    Set iDoc = WebBrowser1.Document    Set mDoc = WebBrowser1.Document    While mDoc.body Is Nothing    \'ждём создания тела документа        DoEvents    Wend    mStr = mDoc.body.outerHTML    mStr = Replace$(mStr, "Найти!", "Жми!")        mDoc.body.innerHTML = mStr    Set iDoc = Nothing    Set mDoc = NothingEnd Sub