Как осуществить поиск в текстовом поле с выделением текста и его заменой на нужный.

Все понятно спасибо, но есть одна загвоздка,
Как бы сделать чтоб текст менялся на тот же который был найден но с некоторыми изменениями, жирним, или наклонным , или подчеркнутым.
Подскажите пожалуйста!

Аномалия какая то
Вот код все работает но.. стоит выбрать буквы: ф, в, п, с, т, ю. как программа зацикливается подскажите в чем дело. ничего не могу понять..

Private Sub Command1_Click()
Dim art
Dim b
Dim pos As Long
art = 1

b = 0
per:

pos = InStr(art, ActiveForm.rtfText.Text, Text1.Text, vbTextCompare)

If pos > 0 Then
ActiveForm.rtfText.SelStart = pos - 1
ActiveForm.rtfText.SelLength = Len(Text1)
ActiveForm.rtfText.SetFocus

ActiveForm.rtfText.SelUnderline = Not ActiveForm.rtfText.SelUnderline
tbrUnpressed)
ActiveForm.rtfText.SelBold = Not ActiveForm.rtfText.SelBold



art = InStr(art, ActiveForm.rtfText.Text, Text1.Text) + Len(Text1)
b = b + 1
GoTo per
End If
Text2.Text = b
End Sub