vb怎么操作自动实现填表功能？

Private Sub Command1_Click()
Dim vTag, vDoc
Dim AllCount, i
Set vDoc = WebBrowser1.Document
For i = 1 To vDoc.All.length - 1 '检测所有标签
    If UCase(vDoc.All(i).tagName) = "INPUT" Then
        Set vTag = vDoc.All(i)
        If vTag.Type = "text" Then
            If vTag.Name = "wd" Then vTag.Value = "123456"
        End If
        If vTag.Type = "submit" And vTag.Value = "百度一下" Then
            vTag.Select
            vTag.Click
        End If
    End If
Next i
End Sub
    
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.baidu.com"
End Sub