VB自动提交网页,存在问题,请高手指教!

Question

网页部分代码:
<tr>
            <td height="32" colspan="2" align="center" valign="middle"><span class="rice">用户名</span>　              
              <input name="UserName" type="text" class="kuang2" id="UserName" onKeyDown="chgFocus()" value="" size="16"></td>
            </tr>
          
          <tr>
            <td height="32" colspan="2" align="center" valign="middle"><span class="rice">密　码</span>　
              <input name="Password" type="password" class="kuang2" id="Password" size="16" onKeyDown="getkey()"></td>
            </tr>
          <tr>
            <td height="36" colspan="2" align="center" valign="middle" class="rice">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[<a href="#" onClick="on_submit()" style="color:#333333">登录</a>] [<a href="reg.html" style="color:#333333">注册</a>] [<a href="findPassword.jsp" style="color:#333333">忘记密码</a>]</td>
            </tr>程序:
Private Sub Command1_Click()Dim vDoc, vTag, ADim i     As IntegerSet vDoc = WebBrowser1.Document
A = vDoc.All.length - 1For 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 " Or vTag.Type = "password " Then                   '看看是不是我们需要的Select Case vTag.Name       '按标签的名字,对号操做Case "UserName "vTag.Value = "250 "      '这里写入你的用户名Case "PASSWD "vTag.Value = "1 "       '这里写入你的密码End SelectElseIf vTag.Type = "submit " And vTag.Name = "SUB " And vTag.Value = "登录" Then'找到提交按钮vTag.Select   '也可以没有这个vTag.Click   '点击提交了，一切都OK了End IfEnd IfNext iEnd SubPrivate Sub Form_Load()WebBrowser1.Navigate "http://ns.gamecamp.cn"End Sub
存在问题:没有找到INPUT 
我一句一句调试,没有找到INPUT 关键字,但源码里确实存在INPUT,请帮帮忙看一下!