Are you sure that you are receiving at the RX the same thing you are sending at the TX?


'Decoding
For counter = 0 to 3 : s.0[counter] = encoded1.0[counter * 2 + 1] : Next counter

Try that and see what happens...for grins...