Call this sub to insert text of any color at the current insert point of a RichTextBox:
Private Sub ColorText(rtb As RichTextBox, Color _ As Long, Text As String) Dim lR As Long, lG As Long, lB As Long lR = (Color Mod &H100) lG = (Color &H100) Mod &H100 lB = (Color &H10000) Mod &H10000 rtb.SelRTF = "{{colortbl;
ed" & CStr(lR) & _ "green" & CStr(lG) & _ "lue" & CStr(lB) & ";}" & _ "{cf1 " & Text & "}}"End Sub