ReplaceRTF

Public Sub Replace(SearchFor As String, _
ReplaceWith As String, SearchRTF As RichTextBox)
Dim Pos As Integer
Pos = 0
While SearchRTF.Find(SearchFor, Pos, _
Len(SearchRTF.TextRTF), rtfNone) <> -1
Pos = SearchRTF.Find(SearchFor, Pos, _
Len(SearchRTF.TextRTF), rtfNone)
SearchRTF.SelStart = Pos
SearchRTF.SelLength = Len(SearchFor)
SearchRTF.SelText = ReplaceWith
Pos = Pos + Len(ReplaceWith)
Wend
End Sub