Private Sub cmdrun_Click()
Call totalchar
End Sub

Public Sub totalchar()
Text2.Text = Len(Text1.Text)
For i = 1 To Len(Text1.Text)
Char = Mid(Text1.Text, i, 1)
Sum = Sum + Val(Char)
Next
Text3.Text = Sum
End Sub