Perfecto muchas gracias !!! .... :)
Yo hice algo como esto.
Cita: Public Class Form1
Dim x As Char
Dim uno, m, a As Integer
Public Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Do
x = e.KeyChar
Select Case x
Case "0"
uno = CInt(Val(x))
a = a + uno
Case "1"
uno = CInt(Val(x))
a = a + uno
Case "2"
uno = CInt(Val(x))
a = a + uno
Case "3"
uno = CInt(Val(x))
a = a + uno
Case "4"
uno = CInt(Val(x))
a = a + uno
Case "5"
uno = CInt(Val(x))
a = a + uno
Case "6"
uno = CInt(Val(x))
a = a + uno
Case "7"
uno = CInt(Val(x))
a = a + uno
Case "8"
uno = CInt(Val(x))
a = a + uno
Case "9"
uno = CInt(Val(x))
a = a + uno
End Select
Loop While (m = 1)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
m = 0
a = 0
End Sub
Public Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
m = 1
MsgBox(a)
End Sub
End Class
Gracias!!!! Me ahorro mucho codigo con tu algoritmo ;)