1
2
3
4
5
6
Dim a As Integer
a = 0
For i = 1000 To 2000 Step 2
a = a + i
Next i
Debug.Print(a)