Access - Sustituir partes del texto de un campo con contenido de una tabla

Replace ("alphabet", "a", "e")

Dim op As DAO.Database

    Dim tabla_ejemplo As DAO.Recordset

    Dim tabla_origen As DAO.Recordset

    Dim Texto As String

    Dim Texto_actualizado As String

    'Definición de variables

    Set op = CurrentDb

    Set tabla_ejemplo = op.OpenRecordset("Formulario", dbOpenSnapshot)

    Set tabla_origen = op.OpenRecordset("Tabla2", dbOpenSnapshot)

    'Acudimos al primer registro

    tabla_ejemplo.MoveFirst

    tabla_origen.MoveFirst

    'Pillamos el texto que hay en el campo texto. Hay que recordar que el conteo se inicia en 0. Así que '1' será la segunda columna

    'Muy importante. Si no tenemos claro el número, podemos encontrar el registro escribiendo directamente su nombre.

    ' Así, la alternativa a la siguiente línea sería

    ' Texto = tabla_ejemplo.Fields("Texto").Value

    Texto = tabla_ejemplo.Fields(1).Value

    Texto_actualizado = tabla_origen.Fields(1).Value

    'Mostramos con MsgBox la información

    MsgBox "En el primer registro del segundo campo dice" & Texto, vbInformation, "INFO"

    MsgBox "Se ha mostrado el texto"

    MsgBox "Se va a volcar el texto en la caja de texto"

    'Establecemos el foco en la CajaTexto

    'Ahora vamos a modificar algunos caracteres del texto

    Texto = Replace(Texto, "<NOMBRE FISCAL>", Texto_actualizado)

    MsgBox "" & Texto, vbInformation, "INFO"