iterates four times outputting the numbers 0, 3, 6, and 9 in a message box:
Sub forLoop3() Dim I As Integer For I = 0 To 10 Step 3 '4 iterations: 0, 3, 6, and 9 Debug.Print I Next I End Sub