highlight af text i rapporter

Min rapport har flg. kode:

Private Sub Detaljesektion_Format(Cancel As Integer, FormatCount As Integer)
    Dim c As Control

    For Each c In Detaljesektion.Controls
    On Error Resume Next

        If InStr(1, c, strnvn) > 0 And strnvn <> \"\" Then
            c.ForeColor = 22222
        Else
            c.ForeColor = 0
       
        End If
    Next c
    On Error GoTo 0
end sub

Hvis textboxen indeholder søgestrengen bliver HELE teksten skrevet med rødt.

Kan man ikke dele teksten op således at kun søgestrengen udskives med rødt ????

eks. indholdet af txtBox = \'nih / bla / bla\' og søgeordet er \'nih\' skal KUN nih udskrives i anden farve.

nih