¿Cómo programar la configuración del efecto VB universitario de acuerdo con los requisitos y pasos?

Subcomando privado1_Click()

Dim m, n, sumamp;, a, i

n=text2.text

Para m = text1.text To n

a = 1

Para i = 2 To n - 1

Si n Mod i = 0 Entonces a = 0: Salir para

Siguiente

Si a = 1 Entonces suma = suma n

Siguiente

text3.text= suma

Fin del subtítulo