INSERIR TEXTO NO TEXTBOX PARA WEBBROWSER (DUVIDA)

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim search As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName([Ô]a[Ô])
    For Each login As HtmlElement In search
        If login.DomElement.className = [Ô]_b93kq[Ô] Then
            login.InvokeMember([Ô]click[Ô])
            Exit For
        End If
    Next
    Dim encaixe1 As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName([Ô]input[Ô])
    For Each inserir1 As HtmlElement In encaixe1
        If inserir1.DomElement.className = [Ô]_ph6vk _o716c[Ô] Then
            inserir1.webbrowser1 = (TextBox1 = InnerText.text [Ô]texto a inserir[Ô])
            Exit For
        End If
    Next
    Dim chocolate As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName([Ô]button[Ô])
    For Each entrar As HtmlElement In chocolate
        If entrar.DomElement.className = [Ô]_qv64e _gexxb _4tgw8 _njrw0[Ô] Then
            entrar.InvokeMember([Ô]click[Ô])
            Exit For
        End If
    Next
End Sub
End Class