Dim Buffer As Variant
Dim Arr() As Byte
' 设定并开启连接埠
MSComm1.CommPort = 1
' 连线速度 9600 baud、无同位检查、资料位元 8、停止位元 1
MSComm1.Settings = "9600,N,8,1"
告诉控制项当使用 Input 时,读取整个暂存区
MSComm1.InputLen = 0
MSComm1.PortOpen = True
' 设定 InputMode 以读取二进制模式
MSComm1.InputMode = comInputModeBinary
' 等待直到输入缓冲区有 10 个字节
Do Until MSComm1.InBufferCount < 10
DoEvents
Loop
' 将二进制数据放入Buffer中
Buffer = MSComm1.Input
' 把数据给指定的数组
Arr = Buffer
MSComm1.PortOpen = False
' 通过Arr(5) 就可以得到第N个元素了
温馨提示:答案为网友推荐,仅供参考