Ok. I found my problem. If anybody needs this...

Code:
WriteSPI:
    GOSUB GetPotVal
    CS = 0                              ' Enable
    Shiftout SI, SCK, MSBFIRST, [$11, UpdPotVal]
    CS = 1                              ' Disable
Thanks to me