未见串口打开语句，你的MSComm1_OnComm事件代码有些冲突，你究竟想以二进制接收还是以ASCII码接收：
Private Sub MSComm1_OnComm()
''
Dim Buffer As Variant
Select Case MSComm1.CommEvent
Case comEvReceive
MSComm1.InputLen = 0
MSComm1.InputMode = comInputModeBinary‘此处及后3句用前2句不用后2句，反之亦然
Buffer = MSComm1.Input
MSComm1.InputMode = comInputModeText
Buffer = AscB(MSComm1.Input)
Text1.Text = Buffer
Case Else
End Select
''
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024