Webbrowser 缺失对象,确定后无法继续执行代码

Question

涉及到两个页面:
1.第一页面: 选择多条记录,点提交
2.提交到第二页,填写要发送的信息(给各INPUT赋值),再提交到数据库.问题在于用以下代码操作时,跳到第二页时跳出窗口,缺少对象:行1,char 1,错误:缺少对象,代码 0, URL:http://XXXXX.com/参数代码如下,请不吝赐教:Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) Dim subject, message webaddress.Text = WebBrowser1.LocationURL Text2 = WebBrowser1.LocationURL
 i = WebBrowser1.LocationURL
 urlarray = Split(i, "/", -1, 1)  ---提取网址页码数字  
------------------------------------------------------------------------------------------------------
  
  Select Case Text2
   Case Text2 ' 当进入主页面时执行以下程序"
 
   If Not (pDisp Is WebBrowser1.Object) Then Exit Sub
    On Error Resume Next
    
    '网页元素操作
     WebBrowser1.Document.getElementById("select_offer_1").Checked = 1
     WebBrowser1.Document.getElementById("select_offer_2").Checked = 1
    WebBrowser1.Document.getElementById("select_offer_3").Checked = 1
    WebBrowser1.Document.parentWindow.execScript "submit('offers')"
-------------------------------------------------------------------------------------------------------
  
 Case Else ' 当进入第二页/填写数据页
  If Not (pDisp Is WebBrowser1.Object) Then Exit Sub
   On Error Resume Next  给input赋值
  WebBrowser1.Document.getElementById("subject").Value = "subjectsubjectsubjectsubjectsubjectsubject"
  WebBrowser1.Document.getElementById("message").Value = "messagemessagemessagemessagemessagemessage"
  WebBrowser1.Document.getElementById("save_sent").Checked = 1
  WebBrowser1.Document.getElementById("inquirysubmit").Click
  
  Text2 = urlarray(0) & "/" & urlarray(1) & "/" & urlarray(2) & "/" & urlarray(3) & "/" & urlarray(4) & "/" & urlarray(5) & "/" & urlarray(6) & "/" & Val(urlarray(7) + 1)   WebBrowser1.Navigate2 Text2  End SelectEnd Sub
如果把第一个CASE 后面参数改成和网址一样的值时,刚不出提示缺失对象,继续执行代码给INPUT赋值.
请高手们指教