Dim i As Integer = 0 For Each digit In (TextBox1.Text) i += Val(digit) Next TextBox2.Text = i.ToString
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)