Estoy programando a ciegas.
¿Privado? ¿Sub? Text1_Change()
¿Atenuado? ¿Shu? ¿Como? Entero,? ¿Zimú? ¿Como? Entero
¿Si? ¿Texto 1? =?""?¿Y luego qué? ¿abandonar? Submarino
¿Oscuro? ¿I? ¿Como? Enteros
¿Para qué? ¿I? =?1?¿Adónde ir? Len(Texto1)
¿Y si? Asc(Mid(Text1,i,?1))? gt=?48? Entonces qué. Asc(Mid(Text1,I,?1))?lt=?57?Entonces
Shu? =?Shu? ?1
Otro
¿Si? Asc(Mid(Text1,i,?1))? gt=?65? Entonces qué. Asc(Mid(Texto1,I,?1))? lt=?90?Entonces
Zimu? =?Zimu? ?1
Otro
¿Si? Asc(Mid(Text1,i,?1))? gt=?97? Entonces qué. Asc(Mid(Texto1,I,?1))? lt=?122?Entonces
Zimu? =?Zimu? ?1
¿Fin? Si
¿Finalizar? Si
¿Finalizar? Si
entonces
¿imprimir? Zimu;? Virus Shuni
¿Y si? Mid(Texto1,?Len(Texto1),?1)?=?"."? Entonces
¿Y si? ¿Zimú? ¿gt? ¿Shu? Entonces
¿MsgBox? "Sí"
Otro
¿Cuadro de mensajes? "No"
¿Fin? Si
Texto1? =?""
¿Salir? Submarino
¿Fin? Si
¿Finalizar? Submarino