求教填表单

如何做到重复自动填表，无视消息框？
内置WebB提交表单后会出现消息框，如果不理会消息框就不能再次填表提交了。
怎样才能一直填表、提交。
----------------------------------------------
Sub tianbiao()
Dim vDoc, vTagDim i As Integer
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
If vTag.Type = "text" Then Select Case vTag.Name
Case "****"
vTag.Value = Text3.Text
End Select
End If
End If
Next i
WebBrowser1.Navigate "javascript:submit();"
end sub
-------------------