Visual Basic - Borrar y sustituir caracteres

K tal, kisiear que me ayudaran con mi siguiente problema:

Supongamos k tengo dos espacios para introducir texto, de nombres Texto1 y Texto2 respectivamente. Por ejemplo, lo k kiere hacer es k kuendo se tecle en Texto1 "ejemplo.xxx" en Texto2 aparezca "ejemplo.ccc", o sea, sustituir los ultimos 3 caracteres, gracias

en el keyup del texto1 pones

esta es una
texto2.text = left(texto1.text, len(texto1.text) - 3) & "ccc"

esta es otra
texto2.text = replace(texto1.text, "xxx", "ccc")

Afogutu