WEBBROWSER中是否还有别的方法来实现这个功能？

dim str9527 as string ="包含我"  For I = 0 To WebBrowser1.Document.All.Count - 1
            If InStr(WebBrowser1.Document.All(I).InnerText, str9527) > 0 Then

            msgbox(WebBrowser1.Document.All(I).InnerText & " 包含序号：" & i &）            exit for
            end if
  next刚刚开始学vb，目的是在页面中找到包含特定字符串的HTML代码段...上面现在用的这个代码，但是效率不高，在页面比较大的时候老是要假死几秒钟...