nö, eher so:
Sub Mcp2515_write_register(byval Adress As Byte , Byval Daten As Byte)
Print "Reg: " ; Adress ; " Val: " ; Daten
Reset Css
Spdr = Spi_write
Do
Loop Until Spsr.spif = 1
Spdr = Adress
Do
Loop Until Spsr.spif = 1
Spdr = Daten
Do
Loop Until Spsr.spif = 1
Set Css
End Sub