Sub S5()

Dim i As Integer, Sm as Integer

Sm = 0

For i = 1 to 5

Sm = Sm + i

Next

MsgBox Sm

End Sub