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

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

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)
这个要怎么改

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

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