小弟刚学VB，有个难题请教大家！
在text里输入数字，然后用数字计算校正码：

校正码产生的公式：a=(d1+d2+d3....+dn) mod 10
di为第i位数
例如，输入12，则校正码位a=(1+2)mod10=3

我想问下，我用的是MID()函数来获取TEXT里的每个数字，但是不知道用什么方法来进行加法运算！

谢谢各位哥哥们了！

[解决办法]
Private Sub Command1_Click()
Dim array1() As Integer
Dim I As Integer
Dim J As Integer
Dim Str As String
Str = Trim(Text1.Text)
If IsNumeric(Trim(Text1.Text)) Then
J = Len(Str)
ReDim Preserve array1(J)
For J = 1 To Len(Str)
array1(J) = CInt(Mid(Str, J, 1))
I = I + array1(J)
Next
Debug.Print I
Else
MsgBox "入值! ", vbOKOnly, "提示: "
End If
End Sub
得分了