zorro77,
posto un esempio di ricerca di una frase nel testo contenuto in un controllo RTB, se la frase completa è presente viene evidenziata e nerettata.
codice:
Private Sub Command1_Click()
        
    Dim Where As Long
    Dim Message As String, Title As String, _
    Default As String, Search As String
    
    ' Imposta il messaggio:
    Message = "Immettere il testo da cercare:"
    ' Imposta il titolo:
    Title = "Cerca una frase - Prova RTB Cerca frase."
    ' Imposta il valore predefinito:
    Default = ""
    ' Visualizza il messaggio, il titolo e il valore predefinito.
    Search = InputBox(Message, Title, Default)

    Where = 0

    ' Cerca la frase nel testo:
        Where = InStrRev(Form1.RichTextBox1.Text, Search, -1, vbTextCompare)
        ' Se la trova, imposta l'inizio della selezione e la lunghezza:
        If Where > 0 Then
            With Form1.RichTextBox1
                .SetFocus
                .SelStart = Where - 1
                .SelLength = Len(Search)
                ' Neretta la frase trovata:
                .SelBold = True
                .HideSelection = False
            End With
        End If
End Sub