RosettaCodeData/Task/Loops-For-with-a-specified-step/Visual-Basic/loops-for-with-a-specified-step.vb

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