Es funktioniert leider noch immer nicht.
Glaube ich hab noch immer grobe Schnitzer drin.

Config Portb = Output

Dim Word0 As Long
Dim Word1 As Long

Motor Alias Portb.2
Strobe Alias Portb.3
Sleepmode Alias Portb.4

Word0 = &B0010000010000011101
Word1 = &B1001100011000010001

Sleepmode = 1

Strobe = 0
Shiftout Portb.0 , Porb.1 , Word0 , 1
Shiftout Portb.0 , Portb.1 , Word1 , 1
Strobe = 1

MfG
Martin