ho provato in questo modo ma mi da errore run time 8015 (impossibile impostare lo stato di comunicazione .é possibile che vi siano uno o piu parametri di comunicazione non validi)
codice:
Private CR As String




Private Sub Combo1_Click()
MSComm1.CommPort = Combo1.ListIndex + 1
End Sub



Private Sub Command1_Click()
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
MSComm1.Output = "Q30,0,0" & CR
MSComm1.Output = "W50" & CR
MSComm1.Output = "H5" & CR
MSComm1.Output = "S2" & CR
MSComm1.Output = "Q30,0,2" & CR
MSComm1.Output = "C14" & CR
MSComm1.Output = "L" & CR
MSComm1.Output = "BG,20,100,3,3,100,0,1,12345678901234567" & CR
MSComm1.Output = "E" & CR


End Sub
hai provato a dare una occhiata al manuale?