VB ingresa un número entero positivo K, separa los números de K y los suma. código de solicitud

El programa es el siguiente y se ha ejecutado correctamente:

Private?Sub?Command1_Click()

a?=?Text1.Text 'Eliminar contenido de texto

n?=?Len(a) 'Obtener longitud del texto

s?=?0

For?i?=?1?To?n ' Para cada carácter Realizar operaciones

s?=?Val(Mid(a,?i,?1))?+?s 'Saca cada carácter y conviértelo en un valor numérico, y acumula

¿Siguiente?

¿Imprimir?s

¿Fin?