Private
Sub
Command1_Click()
Dim
i
As
String
j%
s%
i = Text1
For
j = 1
To
Len(i)
st = Mid(i, j, 1)
s = s + Val(st)
Next
j
Text2 = s
End
Command2_Click()