Visual Basic - Caja De texto...suma..

Hola...a todos pueden hacer el favor de como puedo yo sumar todas las cifras ingresadas en una caja de texto..por ejemplo.....el numero 3456 entonces los sume ........pero las dos ultimas cifras......5+6=11
....por favor el codigo fuente de este problema gracias....espero pronta respuestas

Si mal no recuerdo seria algo asi:

dim i as integer
dim j as integer
dim itotal as integer

itotal = 0
for j = 0 to lenght(txt)
i = mid(txt, j, 1)
itotal = itotal + i
next

ahora, si lo que queres es sumar solamente las últimas dos posiciones en vez de comenzar en 0 comenza en: lenght(txt) -2
Saludos.
Jim

Dim A as integer 'Esla variable que va incrementar el for
dim Suma as integer 'Es la variable que v a llevar la suma de los numeros
Suma = 0
For a = 1 to Len(text1.text) 'Supongo q' text1 es donde tenes los numeros
Suma = Suma + val(mid(text1.text, a, 1))
Next a
Msgbox Suma