vb6.0网页关键字查找（在线等）

wangzhongtu

程序执行时提示错误：vb中实时错误91 对象变量或with块变量未设置
Sub chenbo() '启动事件中
’On Error Resume Next
WebBrowser1.Navigate "http://www.liuhangsheng.icoc.cc/" '你的网址
WebBrowser1.Silent = True
Dim boi As Integer
Dim gjz As String
Dim lj As Integer
gjz = "中途"
For boi = 1 To WebBrowser1.Document.All.Length - 1
    If InStr(1, WebBrowser1.Document.All(boi).outerhtml, gjz) > 0 Then
    lj = InStr(1, WebBrowser1.Document.All(boi).outerhtml, gjz)
         Form1.qwert = "有关键字"   
           Exit Sub
     End If
Next
Form1.qwert = ""
End
End Sub
说明：程序中的这句“’On Error Resume Next” 如果去掉单引号， 那么单步执行时 可以正常判断，但是全编译执行时，就默认了关键字存在  ，请高手帮忙解决！！
       Form1.qwert 这个是文本框