Reemplazar palabras en richtextbox ¡

[Gloritza]

Gracias por la pronta respuesta.

Estoy mirando la función replace, tengo un código que me reemplaza UNA sola palabra y lo que quiero es que al llamar los datos de la DB y mostrarlos en los Textbox me reemplace todas las palabras correspondientes al tiempo.

Este es mi código:

' buscar
Private Sub BuscarTexto(ByVal RichTextBox As Object, Optional ByVal PosIni As Integer = 0)

Dim Pos As Integer
Dim PalabraClave As String
Dim TipoBusqueda As Long

PalabraClave = txtBusca.Text

If Len(PalabraClave) Then
'Verificar si Mayusculas y Minusculas esta desactivada
If CheckBox1.Checked = 0 Then
TipoBusqueda = vbTextCompare
Else
TipoBusqueda = vbBinaryCompare
End If

'Busca desde la PosIni que se indico...
Pos = InStr(PosIni + 1, RichTextBox.Text, PalabraClave, TipoBusqueda)
If Pos > 0 Then

With RichTextBox
RichTextBox1.SelectionStart = Pos - 1
RichTextBox1.SelectionLength = Len(PalabraClave)
RichTextBox1.Focus()
End With
Me.Text = "Se encontro la palabra."
Else

RichTextBox1.Focus()
Me.Text = "No se encontro."
End If
End If

End Sub

' reemplazar el texto seleccionado

Private Sub RemplazarTexto(ByVal RichTextBox As Object, Optional ByVal PosIni As Integer = 0)


Dim Pos As Integer
Dim PalabraClave As String

'TipoBusqueda corresponde si se busca Mayus y Minus identicas...
Dim TipoBusqueda As Long

'La variable PalabraClave toma el valor de txt_Buscar
PalabraClave = txtBusca.Text

'Verificar si PalabraClave no esta vacia
If Len(PalabraClave) Then

'Verificar si Mayus y Minus esta desactivada
If CheckBox1.Checked = 0 Then
TipoBusqueda = vbTextCompare
Else
TipoBusqueda = vbBinaryCompare
End If
'Busca desde la PosIni que se indico..
Pos = InStr(PosIni + 1, RichTextBox.Text, PalabraClave, TipoBusqueda)
If Pos > 0 Then
'Si devolvio mayor de 0...se encontro
RichTextBox1.SelectionStart = Pos - 1
RichTextBox1.SelectionLength = Len(PalabraClave)
RichTextBox1.Focus()

'Eliminamos el contenido del clipboard
Clipboard.Clear()
Clipboard.SetText(txtRemplz.Text)
'Pega el contenido
SendKeys.Send("^(V)")

Me.Text = "Se encontro y reemplazo la cadena de texto."
Else
'No se encontró
RichTextBox1.Focus()
Me.Text = "No se encontro."
End If
End If

End Sub

Creo que con un While o un For se podria pero no se como va el código.