Работа с Rich Textbox

[sashocheck]

Добрый вечер!
Подскажите, пожалуйста, решение следуещего вопроса.

Есть процедура:

Private Sub CommandButton1_Click()
RichTextBox3 = Replace(RichTextBox1.Text, "Home", RichTextBox2.Text)
End Sub

(Т.е. записываем текст в RichTextBox1 и RichTextBox2. Нажимаем CommandButton1 - текст из RichTextBox1 отображается в RichTextBox3, и если в RichTextBox1 есть слово "Home", то оно заменятся на содержимое RichTextBox2.)

Как сделать, чтобы в RichTextBox3 слово из RichTextBox2, на которое мы заменили слово "Home", отображалось красным цветом?