Thanks, Kleinma

I got it work using the following method:
Dim thisObj As Object
Dim butInput As mshtml.HTMLInputElement
thisObj = webBrowser.Document.getElementsByTagName("input")
For Each butInput In thisObj
If butInput.name = "submit.add-to-cart" Then
butInput.click()
End If
Next

Another question:
Can I hide the browser and still get everthing work? If I set visible to false, it can not get the same result as visible.

Thanks you give us very good example and help.