Dim objCom
Set objcom = CreateObject("MSCommLib.MSComm")
objcom.CommPort=1
objcom.Settings = "115200,N,8,1"
objcom.PortOpen = True
i=0
Do Until i=500
i=i+1
If objcom.Input<>"" Then
item.Text = item.Text & " " & objcom.Input
End If
Loop
objCom.PortOpen= False
Set objcom =...