Ciao io sono molto inesperto ma dovevo fare una cosa simile alla tua però ho usato questo codice e funziona:
_________________________________________________________________
Private Sub cmdcon_Click()
If MSComm1.PortOpen = True Then
Exit Sub
End If
MSComm1.CommPort = 2
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0
MSComm1.PortOpen = True
End Sub
_________________________________________________________________
Dimmi se ti è di aiuto. Ciao