After setting the data in the TX buffer, the first thing you do is ...
gosub DoUSBIn

It will sit there until it receives something from the PC, and nothing will be sent.
The VB program doesn't send anything, so it's stuck in the DoUSBIn subroutine.

The subroutine can be changed to continue if nothing is received.