vb webbrowser 的一段程序,大家帮我看看那里出错啦！

Question

 Dim vDoc
 Dim j as integer
       If WebBrowser1.ReadyState = READYSTATE_COMPLETE Then
           Set vDoc = WebBrowser1.Document.getElementsByTagName("a")
           vCount = vDoc.Length      
       End If
       
              For j = 0 To vCount       
                 If vDoc(j).innerText = xlSheet.Cells(i, 2).Value Then
                   vDoc(j).Click
                    Exit For
                 End If
              next j编译到If vDoc(j).innerText = xlSheet.Cells(i, 2).Value Then 老出错，说是对象变量或 With 块变量没有设置（错误 91）怎么以前可以，哪里出错啦？？？

Answer 1

For j = 0 To vCount-1