るしぇさんに紹介していただいたページを参考にしたら、できました。

Private Sub Find(ByVal browser As WebBrowser, ByVal str As String)

        Dim Doc As mshtml.HTMLDocument       'MSHTML.HTMLDocument 

        Dim Body As mshtml.HTMLBody      'MSHTML.HTMLBody 

        Dim Range As mshtml.IHTMLTxtRange  'MSHTML.IHTMLTxtRange 

        Dim BMK As String = ""



        '検索文字列を入れておいてください。 

        If String.IsNullOrEmpty(str) Then

            Return

        End If



        Doc = DirectCast(browser.Document.DomDocument, mshtml.IHTMLDocument2)

        Body = Doc.body

        Range = Body.createTextRange



        '≫≫≫≫≫ 検索開始 

        Do While Range.findText(str)

            '最初に見つかった位置を保存しておきます。 

            If String.IsNullOrEmpty(BMK) = 0 Then



            End If

            BMK = Range.getBookmark



            '検索した語句を黄色く反転させる。 

            Range.execCommand("BackColor", False, "YELLOW")



            '論理カーソル位置を、検索した語句の末尾に移動させる。 

            Range.collapse(False)

        Loop

        '≪≪≪≪≪ 検索終了 



        'ついでに、最初に見つけた語句の位置までスクロールさせています。 

        If Not String.IsNullOrEmpty(BMK) Then

            Range.moveToBookmark(BMK)

            Range.scrollIntoView()

        End If



        '最後は一応、後始末を。 

        Range = Nothing

        Body = Nothing

        Doc = Nothing

    End Sub

http://yaplog.jp/orator/archive/9
ここにあったVB6のコードを、VB.NETにかきかえただけです。
browserに探す対象のブラウザ、strに探す語句を入れると、その語句が反転します。
るしぇさん、ありがとうございました。