Нажатие кнопки в компоненте Mozilla Browser.

Private Sub Navigate_Click()
    MozillaBrowser1.Navigate2 "yandex.ru"
End Sub

Private Sub CommandWeb_Click()
    Dim m_objPrv As IHTMLDocument2
    Dim m_objElem As IHTMLElement
   
    Set m_objPrv = MozillaBrowser1.Document
   
    For i = 0 To m_objPrv.All.length - 1
        Set m_objElem = m_objPrv.All.Item(i)
       
        If (UCase(m_objElem.tagName) = "INPUT") Then
       
            If UCase(m_objElem.getAttribute("name")) = "TEXT" Then
                m_objElem.setAttribute "value", "[мой текст]"
                GoTo 1
            End If
       
        End If
    Next i
1
End Sub