Okay, das hattet ihr mir ja erklärt =)
Ich danke Euch noch einmal vielmals! Versuche das heute Nacht nach der Arbeit einmal in mein Projekt zu übernehmen!!

Hier der funktionierende Codeschnipsel:

$regfile = "m8def.dat"
$crystal = 16000000
$hwstack = 32
$swstack = 10
$framesize = 40
Baud = 19200

Config Spi = Hard , Master = Yes , Clockrate = 16
Spiinit

Dim Expander(3) As Byte
Expander(1) = &B10101010
Expander(2) = &B01010101
Expander(3) = &B00110011

Do
Spiout Expander(1) , 3
Delay
Loop
End