the loop iterates just three times outputting the numbers 10, 5, and 0 in a message box:
Sub loopDemo4() Dim I As Integer For I = 10 To 0 Step -5 '3 iterations: 10, 5, and 0 Debug.Print I Next I End Sub