Do
                Application.DoEvents()
                MyInputElement = .Document.getElementsByName("error").Item(0)
            Loop While MyInputElement is Nothing

Zitat:

du solltest aber erst mal Prüfen ob er mit dem Namen überhaupt das gewünschte Element finden kann

Private fertig As Boolean
 
  Private Sub AxWebBrowser1_DocumentComplete(ByVal pDisp As Object, ByVal URL _
    As Object)
        fertig = False
    End Sub

 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 = "hgfhr"
            .elements("input2").Value = "gfgh"
 
            ' Abschicken
            .submit.Click()
            Do
                Application.DoEvents()
            Loop While AxWebBrowser1.ReadyState <> _
              SHDocVw.tagREADYSTATE.READYSTATE_COMPLETE
 
            fertig = False
            While fertig = False
                Application.DoEvents()
            End While
            MyInputElement = .Document.getElementsByName("error").Item(0)
 
            Do
                Application.DoEvents()
                MyInputElement = .Document.getElementsByName("error").Item(0)
            Loop While MyInputElement Is Nothing
 
            MsgBox(MyInputElement.IHTMLInputElement_value)
        End With
    End Sub