Private Sub cmdOK_Click()
        'füllen der Form
        WebBrowser1.Document.Forms("form1").elements("1").Value = "test1"
        WebBrowser1.Document.Forms("form1").elements("2").Value = "test2"
 
        'ausführen der form durch submit
        WebBrowser1.Document.Forms("form1").submit.Click
 
        Dim point As Object
        Dim x As Object
 
        '### hier warten bis seite feriggeladen weil er irgendwie den wert von 
        ' error
        '### erst beim zweiten ausführen kennt
 
       Set x= WebBrowser1.Document.getElementsByName("error")
 
       For Each point  In x
            If point .Value = "1" Then MsgBox "1"
       Next
 
end sub