I dont have try enough,I have now the solution .

Maybe some one have the same Problem !

For example:

ReadID:
DatenRX = 0
Low PortB.2 'Chip Select
Pauseus 1
Shiftout PortB.4,PortB.3,5,[Command.highbyte,Dummy] 'Send Command Byte
Pauseus 130 'Wait
Shiftin PortB.4,PortB.3,6,[DatenRX.highbyte,DatenRX.lowbyte] 'Receive Data from Slave
Pauseus 1
High PortB.2 'Chip Select
Pause 100
Hserout ["Command = ",DEC Command.lowbyte,",","Chip ID = ",HEX2 DatenRX.highbyte,HEX2 DatenRX.lowbyte,13]
Pause 2000
Command = 0
Goto Main

Regards Pesticida