bir form oluştur ve
1 label
1 textbox
1 button
1 de listbox ekle.

sonra şu kodları formuna yapıştır.

Mantık, textboxa girdiğin sayıları basamak olarak ayırıp listboxa aktarır. daha sonra ise listboxtaki sayıları for döngüsüyle toplar. Sonuçta textboxa klavyeden herhangi bir sayı uzunlukfarketmez girebilirsin. Butona bastığında hepsini toplayacaktır, kolay gelsin.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Listbox1.Items.Clear()
        For i = 1 To Len(Textbox1.Text)
            Dim basamak As String
            basamak = Microsoft.VisualBasic.Left(Textbox1.Text, i)
            Dim cevir As String
            cevir = Microsoft.VisualBasic.Right(basamak, 1)
            Listbox1.Items.Add(cevir)
        Next i
        Dim toplam As Integer = 0
        For i As Integer = 0 To Listbox1.Items.Count - 1
            toplam += CInt(Listbox1.Items.Item(i))
        Next
        Label1.Text = toplam.ToString
    End Sub