Use the SelText property to insert text and SelColor to select colour.

With RichTextBox1
.SelStart = Len(.Text)
.SelColor = vbRed
.SelText = vbCrLf & "here's a new line."
End With

Good luck!

------------------
Joacim Andersson
[email protected]
[email protected]
www.YellowBlazer.com