Hallo CheGuevara,

abgesehen von der kreativen Art, Nuller und Einser zu verwenden, hast du ja alle Schritte soweit.
Du läßt die Schleife For N = 1 To 4 -> Next N weg und schreibst stattdessen:
If Ereignis = 1 Then
N = N + 1
Else
N = N - 1
End If
If N > 5 Then N = 1
If N < 1 Then N = 4

Dann Kommt dein restlicher Code, der je nach N die richtigen Ports einschaltet.
"Ereignis" ist natürlich 0 oder1 bzw. Vorwärts oder rückwärts.

Gruß, Michael