Looking at your code again
Code:
SHIFTIN DinDout,clk,MSBPOST,[Status\4] ' Get Status

LOOP UNTIL s = Ready ' Exit loop when status is ready
I do not see a "Status" array variable defined but I do see a "s" variable.