Private Function AnzahlWort() As Integer
  Dim anzahlTreffer As Integer = 0
        Dim startPos As Integer = -1
        Do
            startPos = WebBrowser1.DocumentText.ToLower.IndexOf("google", _
              startPos + 1)
            If startPos <> -1 Then anzahlTreffer += 1
        Loop While startPos <> -1
  return anzahlTreffer
End Function

<a href="www.Google/..../.....de">Über Google</a>