Web Broswer Control

[MikeBAM]

I'm wondering is there a way using the Web Broswer Control that you could some how get the text on the current page or get the HTML source to the a page. What I'm trying to do is as if it was to scan or search a page. I want to check if a word in text shows up on the page then do something. If you could some how get the text then you could use some like :
if Instr(SiteTextOrHTML,"KeyWord") then

Please help...

[Bloodeye]

You could always use SendKeys and CTRL+F to display the Find(on this page) dialogue box. Or try something like this:

Private Sub Form_Load()
    WebBrowser1.Navigate "http://www.yahoo.com"
End Sub
 
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Dim strFind As String, strHtml As String
    strFind = "Calendar"
    
    If pDisp Is WebBrowser1.Object Then
        strHtml = WebBrowser1.Document.documentelement.innerHTML
            If InStr(strHtml, strFind) Then
                MsgBox "Word Found"
            End If
    End If
    
End Sub