[محمد العبيدي]

تفضل اخي العزيز ارجو ن يكون هذا هو المطلوب

كود :

      Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

            Dim I As Integer
            Dim X As Integer
            X = 0
            For I = 1 To Len(TextBox1.Text)
                  X = X + Val(Mid(TextBox1.Text, I, 1))
            Next
            TextBox2.Text = X
      End Sub