several colors in an RTB (rich text box)

Hello:

I need to show something like "EAT EVERY JELLYFISH" in a rich textbox with each word in a different color (say red, green blue)...

I use selstart sellength & selcolor, but only the LAST word has the new color, the other words revert back to the normal back text. Is it possible to have various separated words shown in different colors at the same time?

I will actually have a long list of many sentences and want certain things highlighted in color(s).

I would like a routine to append a green word, red word, or blue word to the present rtb contents such as:
this does not seem to work:

Public Sub rtbAppendText(NuText As String, Color As Long)
Dim oldLen As Long
oldLen = Len(rtbCmdLog.Text)
rtbCmdLog.Text = rtbCmdLog.Text & NuText
rtbCmdLog.SelStart = oldLen
rtbCmdLog.SelLength = Len(rtbCmdLog.Text) - oldLen
rtbCmdLog.SelColor = Color
rtbCmdLog.SelLength = 0
rtbCmdLog.SelStart = 1
End Sub

I fixed it---just re-sequenced some of my steps. Here it is, also cleaned up a bit

Public Sub rtbAppendText(NuText As String, Color As Long)
Dim oldLen As Long
On Error Resume Next
With rtbCmdLog 'this is the name of the rich tecxt box being used
oldLen = Len(.Text)
.SelStart = oldLen
.SelColor = Color
.SelText = .SelText & NuText
End With
End Sub