Cita: Dim UlParada As Long
Dim Texto1 As String
UlParada = 1
Texto1 = Text2
Do
Buscar = InStr(UlParada, Text2, Text1)
If Buscar = 0 Then Exit Do
Mid(Texto1, Buscar, Len(Text1)) = Text3
Text2 = Texto1
Loop
En Text1 va el Texto de Búsqueda
En Text2 el Texto
En Text3 el texto por el cual se reemplazará si se encuentra
ok
