Thanks for the clarification, well I put it with intent for all who would help them to understand, because if everyone does not know how to program in VB.
Anyway still not working,
I put a Timer every 1ms buffer but I read nothing at all, for me the bug is in the sequence of programming the PIC, but no where with. "GoSub DoUSBOut" or "Gosub DoUSBIn" I've changed so many ways not to do.
For the program to read the VB inside PIC and see it in textBox.

THX