Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button1.Click
        Dim MyInputElement As mshtml.HTMLInputElementClass
 
        With AxWebBrowser1.Document.Forms("form1")
            .elements("input1").Value = "tester"
            .elements("input2").Value = "tester"
 
            ' Abschicken
            .submit.Click()
            Do
                Application.DoEvents()
            Loop While AxWebBrowser1.ReadyState <> _
              SHDocVw.tagREADYSTATE.READYSTATE_COMPLETE
 
            MyInputElement = .Document.getElementsByName("error").Item(0)
            MsgBox(MyInputElement.IHTMLInputElement_value)
 
        End With
    End Sub