I think:

TXSTA=%00100100 ' Enable transmit and asynchronous mode , 24h and not 20h
DECLARE HSERIAL_CLEAR=ON ' Optionally clear the buffer before receiving
Clear the overflow error bit before commencing a read.

if I will find other wrong then I post it.(sorry for my bad english).