RichTextBox - Highlight / Bold all occurances of a word

[Static]

Private Sub ColorWord(prtbName As RichTextBox, _
            pstrWord As String, _
            plngHighlightColor As Long, _
            Optional pblnBold As Boolean)
            
Dim lngPos As Long
Dim lngSelStart As Long
Dim lngSelLength As Long
 
lngSelStart = prtbName.SelStart
lngSelLength = prtbName.SelLength
 
lngPos = prtbName.Find(pstrWord, 0)
 
Do
     
    prtbName.SelColor = plngHighlightColor
    
    If pblnBold = True Then
        prtbName.SelBold = True
    End If
    
    lngPos = prtbName.Find(pstrWord, lngPos + prtbName.SelLength)
 
Loop While lngPos > 0
 
prtbName.SelStart = lngSelStart
prtbName.SelLength = lngSelLength
 
End Sub

usage

ColorWord RichTextBoxControl , "Word to Find", color ,[Optional BOLD as Boolean]