Du kannst es alternativ auch recht übersichtlich mit einer Funktion machen. Hab leider kein komplettes Beispiel zur Hand, aber so in etwa könnte es aussehen:


Code:
Sub Motorstep( )

    Incr Ilinksschritt 
     If Ilinksschritt > 4 Then
           Ilinksschritt = 1
     End If

    Select Case Ilinksschritt                               'Schritt für Linken Motor
      Case 1:
         Links_a = 1
         Links_b = 0
         Links_c = 1
         Links_d = 0
      Case 2:
         Links_a = 1
         Links_b = 0
         Links_c = 0
         Links_d = 1
      Case 3:
         Links_a = 0
         Links_b = 1
         Links_c = 0
         Links_d = 1
      Case 4:
         Links_a = 0
         Links_b = 1
         Links_c = 1
         Links_d = 0
    End Select

End Sub
Die Bezeichnungen Links_a , Links_b, Links_c, Links_d sind in diesem Fall die 4 Ports wo der L293D Motortreiber dran hängt.
Mit jedem Aufruf der Funktion macht der Motor einen Schritt!
Vielleicht schafft es mal jemand zeitlich bei Gegenheit ein kleines Demo dazu in Download Bereich zu posten.

Gruß Frank