Sólo aparece el código fuente.

¿Atenuar? ¿s? ¿Como? Cadena,? t1? ¿Como? Línea

¿Oscura? ¿norte? ¿Como? Entero

¿Respuesta? =?Dividir(Text1.Text,?vbCrLf)

s? =?Recortar(Texto3.Texto)

Texto2. ¿Palabra? =?""

¿Para qué? ¿I? =?0?¿Adónde ir? Sin consolidar(a)

n? =?0

s1? =?Trim(a(i))

¿Para qué? j? =?1?¿Adónde ir? Lente

¿Para qué? k? =?1?¿Adónde ir? Len(s1)

¿Y si? ¿Medio(s,?j,?1)?=?Medio(s1,?k,?1)?¿Y luego qué? ¿norte? =?n? ?1

¿Siguiente? k

¿Siguiente? j

¿Y si? ¿norte? =?1?¿Y entonces qué? Texto 2. ¿Palabra? =?Texto2. ¿Palabra? ¿amperio? t1? ¿amperio? vbCrLf

¿Siguiente? Yo

¿Terminar? Submarino