Il codice in VB6 è quello che oramai si trova ovunque in rete:
Il codice che hai postato non mi sembra sufficiente per scovare l'inghippo...
Perchè dici di chiudere e riaprire la seriale?
Che messaggi invia il micro? Non è che ci sono dei caratteri non visualizzabili?

(ah, mi sa che hai sbagliato sezione)