Dim answer As Integer
Dim startNumber As Integer

answer = 0

For startNumber = 1 To 4

answer = answer + startNumber

Next startNumber

MsgBox answer

Dim number as Integer

number = 1

Do While number < 5
MsgBox number
number = number + 1
Loop