RichTextBox1怎么突显某几个字符

RichTextBox1如何突显某几个字符。
比如text1.text输入C1859，RichTextBox1会根据数据库显示如下数据；我想让C1859在下面众多数据中突出显示C1859该怎么做；加粗或红色都可以

 C103 C112 C121 C13 C14 C15 C152 C153 C16 A17 C2172 C1373 C17A4 C175 C176 C17s7 C178 C179 C18 C184s6 C1847 C18348 C21849 C12850 C18451 C18352 C1s853 C1854 C1855 C185s6 C1857 C1858 C1859C1860 C1861

------解决方案--------------------
RichTextBox1.SelStart = InStr(RichTextBox1.Text, Text1.Text) - 1
RichTextBox1.SelLength = Len(Text1.Text)
RichTextBox1.SelBold = True
这样应该可以的
至于RichTextBox1里有没有text1的字符,那你要判断一下了
我这个是有的情况下
------解决方案--------------------

探讨

RichTextBox1.SelStart = InStr(RichTextBox1.Text, Text1.Text) - 1
RichTextBox1.SelLength = Len(Text1.Text)
RichTextBox1.SelBold = True
这样应该可以的
至于RichTextBox1里有没有text1的字符,那你要判断一下了
我这个是有的情况下