Grazie ho risolto, prendendo spunto dalla riga:

MSComm1.Output = "ATV1Q0" & Chr$(13)

Sei stato troppo gentile alla prossima.

grazie