Buscar y colorear frases en un RichTextBox

[Carlojas]

Buenas tardes compañeros mi inquietud es la siguiente:
Tengo un RichTextBox el cual cual necesito recorrer para buscar determinada frase y colorear dicha frase la cual puede aparecer mas de una vez en el RichTextBox. este es el código que llevo:

Código vb:

Dim resultado As String = FormatDateTime(Now, DateFormat.ShortDate)
        Dim p As Integer, Frase As String
        Dim m_Pos As Integer
 
        Frase = resultado
        p = InStr(1, Me.log_read.Text, Frase)
 
        If p > 0 Then
            m_Pos = p
            With Me.log_read
                .SelectionStart = m_Pos - 1
                .SelectionLength = Len(Frase)
                .SelectionColor = Color.Blue
                .SelectionFont = New Font(FontStyle.Bold, 11, FontStyle.Bold, GraphicsUnit.Pixel)
                .Focus()
            End With
        Else
            MsgBox("No Se Encontró La Frase", vbInformation)
            Me.log_read.Focus()
        End If
 

aunque aqui solamente me colorea la primera de frase que encuentre, la inquietud es como haría para que si encuentra la frase mas de una vez pues las coloree todas??' se que habría que recorrer el RichTextBox pero la verdad no doy pie con bola con esto.

Agradesco sus comentarios al respecto.


Saludos.

[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.