WebBrowser自动填表的问题，高手指教哦

我是个vb的菜鸟。请高手指教！

我想弄个自动填表的程序。

我知道可以用下面的程序来实现：
WebBrowser1.Navigate "需要填表的网页"

While WebBrowser1.ReadyState <> READYSTATE_COMPLETE '循环等待
DoEvents '转让控制权，以便让操作系统处理其它的事件。
Wend
Dim vDoc, vTag
Dim i As Integer
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1 '检测所有标签
If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input标签
Set vTag = vDoc.All(i)
If vTag.Type = "text" Then '看看是不是我们需要的
Select Case vTag.Name '按标签的名字,对号操做
Case "XM"
vTag.Value = ".."
.
.
.
End Select

ElseIf vTag.Name = "Submit" Then '找到提交按钮

vTag.Click '点击提交
End If
End If
Next i
End Sub

现在的问题是当vTag.Click后，又打开的网页也是个需要填表的网页，这个怎么写程序才能继续自动填写呢？