Visual BAsic 6.0 - Cadena de caracteres AYUDAAAAAA

damito666
07 de Noviembre del 2005
Hola necesito alguna idea u ayuda con esto que me esta poniendo loco!.
En un TextBox ingreso 5 numeros, por ejemplo el 25313; necesito sumar todas las cifras de ese numero 2+5+3+1+3 y al resultado de ese numero (14) tengo que tambien sumarle las cifra osea 1+4, quedando una sola cifra 5.
Pueden darme alguna idea de como hacer eso.. POR FAVOR. DEsde ya MUCHAS GRACIAS


violeta01
07 de Noviembre del 2005
mira lo que puedes hacer es en un boton poner el siguiente codigo
aux=text1.text 'asignas lo que tiene el text box a una variable
tam=len(aux) 'sacas el tama~o de los datos
while tam>=2
for x=1 to tam
c=mid(aux,x,1) 'saca caracter por caracter
temp=temp+c
next
tam=len(temp)'saca el tama~o de la respuesta
aux=temp 'asigna el resultado a la variable auxilar
wend

espero que te sirba si tienes alguna otra duda con gusto te ayudare