leinad31,

Try:

VB Code:
  1. Private Sub BoldText(rtb As RichTextBox, TextToBold As Variant)

  2. Dim i As Long

  3.  
  4. i = InStr(rtb.Text, TextToBold)

  5.  
  6. While i <> 0

  7.    rtb.SelStart = i - 1

  8.    rtb.SelLength = Len(TextToBold)

  9.    rtb.SelBold = True

  10.    i = InStr(i + 1, rtb.Text, TextToBold)

  11.    DoEvents

  12. Wend

  13.  
  14. End Sub

Usage: BoldText rtfText,"Happy"

This will bold all text in the RTF box that is 'Happy'.