HOLA!!!
Te lo traduzco a "pseudocodigo" (no se muy bien pseudocodigo, pero voy a hacer lo posible)
Declarar d como cadena
Declarar da como cadena
De s = 1 a Tamaño(Text1)
d = SubCadena(Text1, s, 1)
da = SubCadena(Text1, s + 1, 1)
si d = da hacer
L = L + 1
sino
cadena = concatenar( L , d )
si L <> 0 hacer
Text2.Text = concatenar( Text2 , cadena )
sino
Text2 = concatenar( Text2 , d )
Fin Si
L = 0
Fin Si
Siguiente s
Espero que sirva, dejo aclaraciones:
Concatenar une 2 cadenas de texto ejemplo:
Concatenar("hola " , "mundo" ) devuelve "hola mundo".
SubCadena toma una parte de una cadena p1 es la cadena p2 es el inicio p3 es la longitud ejemplo:
SubCadena("Hola Mundo",3,5) devolvera "la Mu".
Tamaño es un simple length, ejemplo:
Tamaño("hola") devuelve 4 y tamaño ("Hola Mundo") devuelve 10.
GRACIAS POR LEER!!!