¿Pregunta sobre programación en VB?

Si se arreglara el formato de cadena original y hubiera un 555 después de cada tres dígitos, el problema sería mucho más sencillo. Se puede lograr mediante un ciclo de conteo.

n = longitud\ 6

j=1

Para i=1 a n

s1=s1. mid(s,j,3) y amp "i"

j=j 6

Siguiente i

Imprimir s1

En de esta manera se completan los requisitos de la pregunta y se logran las funciones requeridas.