Visual Basic - Ayuda con Textos

hola a todos, me gustaria que me ayudaran en algo que quiero realizar:
es que quiero saber como puedo hacer para que cuando yo digite algo en un text lo que yo escribi lo pueda "AUMENTAR" osea, que si yo digite por ejemplo "a" lo pueda aumentar 2 veces, quedando como "c" pero lo que necesito es aumentarle los valores que yo quiera
por ejemplo "ab" si le aumento 3 veces quedaria "de"
ojala si me aya explicado bien.
les agradesco su colavoración

Abre un form y añádele un text1 y un text2 y este código en un commandbutton

cambio = ""
For x = 1 To Len(Text1)
captura = Mid(Text1, x, 1)
asci_captura = Asc(captura)
asci_nueva = asci_captura + Len(Text1)
cambio = cambio + Chr(asci_nueva)
Next
Text2 = cambio

saludos