Private Sub Command1_Click()
Dim strCount As String
Dim strSum As String

Следушие Text1.Text, strCount, strSum

Text2.Text = strCount
Text3.Text = strSum

End Sub

Private Sub Следушие(ByVal pstrNumber As String, ByRef iostrCount As String, ByRef iostrSum As String)

Dim i As Integer
Dim intSum As Integer

iostrCount = Len(Trim(pstrNumber))

For i = 1 To iostrCount
intSum = intSum + Mid(pstrNumber, i, 1)
Next i

iostrSum = str(intSum)

End Sub

bac,

Я думаю, что вы ошибаетесь.

Если вводить цифры, а не мусор, то все работает. Вопрос был не о том, как отсеивать мусор, поэтому его уборку я оставил за рамками примера.

VladConn