Cómo programar la superposición de números en VB

¿Es este tipo de superposición? ¿Sumar del 1 al 100?

Subcomando privado1_Click()

Atenuar s como entero

Atenuar x como entero

s = 0

Para x = 1 a 100

s = s + x

Siguiente

Depurar.Imprimir s

End Sub