ya probe el código y si funciona, de hecho en un form puse un RichTextBox y 3 CommandButton, estoy escribiendo y le doy click a algun boton y sigo escribiendo en otro color:
Option Explicit
Private Sub cmdAzul_Click()
RichTextBox1.SelStart = Len(RichTextBox1.Text)
RichTextBox1.SelColor = vbBlue
RichTextBox1.SetFocus
End Sub
Private Sub cmdRojo_Click()
RichTextBox1.SelStart = Len(RichTextBox1.Text)
RichTextBox1.SelColor = vbRed
RichTextBox1.SetFocus
End Sub
Private Sub cmdverde_Click()
RichTextBox1.SelStart = Len(RichTextBox1.Text)
RichTextBox1.SelColor = vbGreen
RichTextBox1.SetFocus
End Sub
ahora no se si eso es lo que quieres hacer.