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