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.