numbuf(0) = Buffer(0)
numbuf是string型，Buffer是Variant

知道了不匹配，那就改过来啊。=两边数据类型要相同.

[ 本帖最后由 vbvcr51 于 2013-12-25 21:50 编辑 ]

要怎么改，好像怎么改都不对

dim numbuf(0) , Buffer(0) as string

Dim Buffer As Variant '存储数据的缓冲区
Dim numbuf(24) As String '数据数组
Buffer = MSComm1.Input '清理接收缓冲区，此时，接收的字节数已经为0

numbuf(0) = Buffer(0)
    numbuf(1) = Buffer(1)
    numbuf(2) = Buffer(2)
    numbuf(3) = Buffer(3)
    numbuf(4) = Buffer(4)
    numbuf(5) = Buffer(5)
    numbuf(6) = Buffer(6)
    numbuf(7) = Buffer(7)
这个要怎么改

Dim Buffer As Variant '存储数据的缓冲区
Dim ReadData() As String '数据数组
Dim str as String
Buffer = MSComm1.Input '清理接收缓冲区，此时，接收的字节数已经为0
ReadData()=buffer    '将变体赋值给一个字节型数组
For i = LBound(ReadData) To UBound(ReadData)
      Str = Str & ChrB(ReadData(i))
Next i
MsgBox "数据：" & vbCrLf & Str
前段时间写过这样的程序，可以运行，仅供参考

能解释下Str = Str & ChrB(ReadData(i))是什么意思吗

请问你做的是什么，是和单片机通信吗