Sub ForSteps()
Dim I As Integer
For I = 0 To 10
MsgBox (I)
Next I
For I = 0 To 10 Step 2
MsgBox (I)
Next I
For I = 0 To 10 Step 3
MsgBox (I)
Next I
For I = 10 To 0 Step -5
MsgBox (I)
Next I
End Sub