Iterates six times outputting the numbers 0, 2, 4, 6, 8, and 10 in a message box:
Sub forLoop2() Dim I As Integer For I = 0 To 10 Step 2 '6 iterations: 0, 2, 4, 6, 8, and 10 Debug.Print I Next I End Sub