Aqui esta el código:
Private Sub Command1_Click()
Dim i As Integer, suma As Integer
Dim s As String
For i = 1 To Len(Text1.Text) 'comienza el ciclo desde el 1 hasta la cantidad que es
'permita ingresar en el textbox osea 3
suma = suma + Val(Mid(Text1.Text, i, 1)) 'Extraer los #s y los sumas uno x uno
Next i 'termina el ciclo
MsgBox suma, vbInformation, "TAREA" 'muestras el resultado
End Sub
Private Sub Form_Load()
Text1.MaxLength = 3 'solo permite ingresar tres caracteres al textbox
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then 'solo acepta números backspace y supr
KeyAscii = 0
End If
End Sub
La función LEN Devuelve un tipoLong que contiene el número de caracteres en una cadena o el número de bytes necesarios para almacenar unavariable. En este caso estás indicando que cuente los caracteres que se ingresen en el cuadro de texto, por lo tanto la setencia for contara desde uno hasta la cantidad de caracteres que tiene el cuadro de texto.
La función MID Devuelve un tipo Variant (String) que contiene un número especificado de caracteres de una cadena. Mid(quevas a extraer, desdedonde,cuantoscaracteres).
la función val Devuelve los números contenidos en una cadena como un valor numérico del tipo adecuado. En pocas palabras los número que se toman como string, te los convierte en integer.