Buscar y colorear frases en un RichTextBox

[Carlojas]

Buenos dias compañeros despues de buscar encontre esta forma para hacer lo que necesitaba:

Código vb:

Imports System.Text.RegularExpressions
 
    Private Sub Buscar_Coincidencia( _
      ByVal pattern As String, _
      ByVal RichTextBox As RichTextBox, _
      ByVal cColor As Color, _
     ByVal BackColor As Color)
 
 
        Dim Resultados As MatchCollection
        Dim Palabra As Match
 
        Try
            Dim obj_Expresion As New Regex(pattern.ToString, RegexOptions.IgnoreCase)
            Resultados = obj_Expresion.Matches(RichTextBox.Text)
 
            With RichTextBox
                .SelectAll()
                .SelectionColor = Color.Black
            End With
 
            For Each Palabra In Resultados
                With RichTextBox
                    .SelectionStart = Palabra.Index 
                    .SelectionLength = Palabra.Length 
                    .SelectionColor = cColor 
                    .SelectionBackColor = BackColor
                    .SelectionFont = New Font(FontStyle.Bold, 11, FontStyle.Bold, GraphicsUnit.Pixel)
                    Debug.Print(Palabra.Value)
                End With
            Next Palabra
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try
    End Sub
 
'Para utilizarlo 
Call Buscar_Coincidencia(resultado, Me.log_read, Color.Blue, Color.Yellow
 

)


Saludos.