Highlighting First Character Changes Text Color?

I want to search as text is entered into a text box. All works as it should. When the search highlights the first character of the string then ALL following searches have this same color.

For example: I have a listbox with a list of titles. As I move through the titles the RTB displays the story line associated with the title.

RTB = "A big brown box and an apple is the mystery" Search for "a" (All conversions to common case) will highlight all the "a"s. BUT when I click on the next title, ALL the text is now highlighted.

There have been many variations tried and all without success.

I have a textbox for the search string I have a listbox with a list of titles I have a RTB with text associated with each listbox title.

Private Sub FindAll(RTB As RichTextBox, ByVal StartPos As Integer, ByVal SearchText As String)
Do

[Code]......