Try this to change the font color:

VB Code:
  1. Dim oldsel As Integer
  2. oldsel = RichTextBox1.SelStart
  3. RichTextBox1.SelStart = 0
  4. RichTextBox1.SelLength = Len(RichTextBox1.Text)
  5. RichTextBox1.SelColor = vbBlue
  6. RichTextBox1.SelStart = oldstart