Partiendo del ejemplo de las faqs, he implementado este código:
Dim Contador As Integer
Texto = Text1.Text ' cadena string
For Contador = 1 To Len(Texto)
Text2.Text = Mid(Texto, Contador, 1) + "[Añadir]"
Next Contador
Lo que debo hacer es leer el contenido de Text1 palabra a palabra y en text2 mostrar el texto de texto de text1 más el string [Añadir], pero sin embargo no funciona correctamente. ¿Alguien sabe que es lo que no hago bien?
Gracias!!!