Visual Basic - SUMAR TEXTBOX Urgente!!

Hola y Gracias:

Tengo el Text1 donde se ingresan 10 dìgitos (Todos nùmeros) como tengo que hacer para que me sume los diez numeros

Ej: 1234567890 Suma = 45

Por favor con còdigo

Gracias

El código que tenés que usar es este:

largo = Len(Text1)
valor = 0

For i = 1 to largo
buff = Mid(Text1,i,1)
valor = valor + Val(buff)
Next i

Este código ponelo en una función o en el evento Click de un botón, y en la variable "valor" vas a tener la suma de los números que ingresaste en el Text1.
Espero que te sirva.