Necesito ayuda (como siempre)

[robertonavarro]

Si el problema es colocar la caja de texto en la que se va a poner la nueva palabra en el lugar de la palabra seleccionada, solo es cuestión de darle las coordenadas correspondientes.
Y hacerla visible o invisible según el evento. El evento MouseMove del RichTextBox te dirá la ubicación y una variable de control te indicará cuando debe ejecutarse cierto código. Mas o menos así:

Dim clic As Boolean

Private Sub RichTextBox1_Click()
clic = True
End Sub

Private Sub RichTextBox1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

If clic Then
Text1 = ""
Text1.Visible = True
Text1.Top = y
Text1.Left = x
Text1.SetFocus
End If
clic = False
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text1.Visible = False
'...el resto del código va aquí...
End Sub

El text1 (que es el control en donde pones la nueva palabra) es invisible de inicio.
¿Cuando se llama al evento RichTextBox1_Click? Se llama justo cuando el usuario termina de seleccionar la palabra que quiere remplazar.
El codigo del evento Text1_KeyPress es simplemente para que el usuario haga enter despues de colocar la nueva palabra y esta remplace a la anterior (con el código ya antes expuesto)
Un detalle mas, el RichTextBox debe tener valores top=0 y left=0