Never mind.  Turns out the InStr code will find the HTML snippet.  You just have to be careful to limit the code being searched to someething in HTML that will not be split across lines in the field being searched or InStr will not find it since it also evaluates Newline characters.  Here is some sample code to do this search:

Private Sub subFindHtmlSnippet()

    Dim varFound As Variant, strString1 As String, strString2 As String
    
    strString2 = "color=red>"                           'What HTML snippet are you looking for?
    strString1 = Me![YourTextFieldWithRichText]         'Where are you searching for it?
    varFound = InStr(1, strString1, strString2)         'Do the search
    If varFound > 0 Then                                'Search successful
        'MsgBox "InStr returned: " & varFound           'For Testing
        ***Perform some code if found***                
    Else
        'MsgBox "InStr returned: " & varFound           'For Testing
        ***Perform some

Sorry, the else statement got cut off so here is the back of the Sub:

    Else
        'MsgBox "InStr returned: " & varFound           'For Testing
        ***Perform some code if NOT found***
    End If

End Sub

Thanks for sharing.