[Request] Filling In Webboxes with Information Through Visual Basic

sendkeys.send("{KEYS}")

Public Class Form1

    Inherits System.Windows.Forms.Form
    Dim asd

    Private Function GetBtnByValue(ByVal value As String) As HtmlElement
        For Each d As HtmlElement In Webbrowser1.Document.GetElementsByTagName("input")
            'If (d.GetAttribute("type").ToLower = asd.Text Or d.GetAttribute("type").ToLower = "submit") Then
            If (d.GetAttribute("type").ToLower = "submit") Then
                If (d.GetAttribute("value") = value) Then
                    Return d
                    Exit For
                End If
            End If
        Next
    End Function

    

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Document.GetElementById("ID").SetAttribute("value", TextBox1.Text())
        

        'GetBtnByValue("What the Button Says").InvokeMember("Click")



    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://website.com") 'the target
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
         'GetBtnByValue("What the Button Says").InvokeMember("Click")
    End Sub
End Class