Vb6 在文本框中查找字符总数

我有一个文本框，其中包含从代码中计算得到的字符。文本框只包含整数。。。有没有办法把文本框中的整数相加？如果我的文本框有123456，代码应该找到1+2+3+4+5+6的总和，然后在另一个文本框中显示该总和。提前感谢

使用Mid$和Len函数逐个检索数字，并将其+添加到总和中

编辑：

VB6

---

欢迎来到Stackoverflow。首先，vb6和vb.net是两个不同的东西，你的意思是什么？第二，你试图解决什么问题？如果您有一些代码，请发布它，并描述它的哪些部分不工作，以及它是如何不工作的。如果您有一个两位数的数字，会发生什么情况？请阅读提供。此代码给我一个运行时错误“13”：类型不匹配，突出显示sum=sum+MidTextBox1部分。Text，i，1但是Visual Studio Guy的代码也可以正常工作。

Dim total As Integer, i As Integer
For i = 1 To Len(Trim$(Text1.Text))
    total = total + CInt(Mid$(Text1.Text, i, 1))
Next i
Text2.Text = total

Public Sub Calculate()
    Dim i       As Integer
    Dim sum     As Integer
    Dim length  As Integer
    i = 1
    sum = 0
    length = Len(TextBox1.Text)

    While i <= length
        sum = sum + Mid(TextBox1.Text, i, 1)
        i = i + 1
    Wend

    TextBox2.Text = sum
End Sub