Bei diesem Beispiel wird eine Schleife bis 5 durchlaufen. Eine Messagebox wird bei jedem Schritt aufgerufen und teilt Euch mit, wie weit die Schleife fortgeschritten ist. Wenn Ihr hinter For I=1 to 5 noch Step 2 schreibt, so wird nur jeder zweite Wert bearbeitet. Versucht es einfach einmal.

Option Explicit

Sub Beispiel_For()
    Dim i As Byte
    For i = 1 To 5
        MsgBox ("Die Schleife befindet sich bei I=" & i)
    Next
End Sub