Ho aggiunto qualche istruzione per attendere il caricamento della pagina e trovare il testo.
Vorrei riuscire a calcolare la posizione del testo trovato, posizionare il cursore sopra e cliccarvi

codice:
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim wb As New WebBrowser
        WebBrowser1.Navigate(New Uri("http://www.google.it"))
        While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
            Application.DoEvents()
        End While
        If WebBrowser1.DocumentText.ToLower.Contains("cerca") Then
            MsgBox("SI")
        Else
            MsgBox("NO")
        End If
    End Sub
End Class