Comment out the GOSUB DoUSBIn and see if works better.

I suggest you to have a look on USBDemo.
http://www.picbasic.co.uk/forum/showthread.php?t=5418

Maybe this one too
http://www.picbasic.co.uk/forum/showthread.php?t=6463&