RosettaCodeData/Task/Loops-For-with-a-specified-step/BASIC/loops-for-with-a-specified-step-20.basic

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