Reemplazar palabras en richtextbox ¡

[Gloritza]

Malenko... muchas gracias por tu ayuda, me sirvio mucho...

ahora Coloco este código (RichTextBox1.SelectionAlignment = HorizontalAlignment.Center) en el load del form para Justificar
el texto y funciona bien.

Dim Pos As Integer
Dim TipoBusqueda As Long

Dim PalabraClave(3) As String
PalabraClave(0) = txtBusca1.Text.ToString()
PalabraClave(1) = txtBusca2.Text.ToString()
PalabraClave(2) = txtBusca3.Text.ToString()

Dim Reemplaza(3) As String
Reemplaza(0) = txtRemplz1.Text.ToString()
Reemplaza(1) = txtRemplz2.Text.ToString()
Reemplaza(2) = txtRemplz3.Text.ToString()

For i As Integer = 0 To PalabraClave.Count - 1
If Len(PalabraClave(i)) Then
'Verificar si Mayusculas y Minusculas esta desactivada
If CheckBox1.Checked = 0 Then
TipoBusqueda = vbTextCompare
Else
TipoBusqueda = vbBinaryCompare
End If

Pos = InStr(PosIni + 1, RichTextBox.Text, PalabraClave(i), TipoBusqueda)

If Pos > 0 Then

With RichTextBox
RichTextBox1.SelectionStart = Pos - 3
RichTextBox1.SelectionLength = Len(PalabraClave(i))
RichTextBox1.Text = RichTextBox1.Text.Replace(PalabraClave(i), Reemplaza(i))
RichTextBox1.Focus()


End With
Me.Text = "Se encontro la palabra."

Else

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

End If

Next
RichTextBox1.SelectionAlignment = HorizontalAlignment.Center


El problema que tengo ahora es que despues que reemplaza me cambia totalmente el formato del texto dejandolo según
este la primer linea del Richtextbox. y aunque coloque la linea de texto que antes mencione ya no funciona.

Queciera Saber si alguien me puede decir como puedo conservar el formato original del Richtextbox.