para leer caracter a caracter tienes que hacerlo a travez de un for
dim I as integer
for i=1 to len(cadena)
letraaletra=mid(cadena,i)
next
eso es todo saludes cualquier cosa te comunicas
Oscar Armando Sanchez Toro
Desarrollador de Software y Redes
msn/correo:
[email protected] [email protected]
Bogotá-Colombia