RosettaCodeData/Task/Loops-For-with-a-specified-step/VBA/loops-for-with-a-specified-step.vba

Sub MyLoop()
    For i = 2 To 8 Step 2
        Debug.Print i;
    Next i
    Debug.Print
End Sub