接收几个数据后出现“溢出”错误？

Question

每次接收一个字节，前面都正常接收，但是接收到99时，就出现如下问题，我下位 机发送的数据为十六进制，如下
24 44 41 54 FF FF FF FF 55 99 AA 66 0C Private Sub MSComm1_OnComm()
Dim b As Variant
dim buffer() as byte'在CommEvwnt中接收数据
Select Case MSComm1.CommEvent
  Case comEvReceive
    
     b = MSComm1.Input
     str = str & b
   
     ReDim Preserve buffer(j)
     buffer(j) = Asc(b)    ,这里当接收到 99 时显示实时错误6，溢出？？？
     j = j + 1
    
Case comEvSendEnd Select
End Sub执行后buffer()里的值为：36 68 65 84 255 255 255 255 85 下面就出错了……

Answer 1

没看出来什么问题。
buffer(j) = Asc(b)这句什么用意？