Domanda su "replace" VB Net 2015

[posse]

Salve ragazzi, scrivendo il codice:

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim str As String




        str = RichTextBox1.Text


        str = Replace(RichTextBox1.Text, "N", "P")
        RichTextBox1.Text = str


    End Sub

Dove pongo il testo contenuto in richtextbox1 nella variabile stringa str
uso replace per sostituire il valore N con P e poi riscrivo tutto in richtextbox1,
posso, nel passaggio di sostituzione testo ,cambiare colore al testo cambiato, mentre quello non cambiato mi rimane del colore originario?

ci sto sbattendo la testa già da un po!
spero qualcuno possa aiutarmi.