vb有关mscomm控件的问题

用mscomm控件从计算机串口接受数据，inputmode＝cominputmodebinary，  
  部分程序如下  
              dim   p   as   variant  
              dim   a(4)   as   byte  
          select   case   mscomm1.commevent  
          case   comevreceive  
                      p   =   mscomm1.input                      
                      a(1)   =   p(0)，程序运行到这里总说p(0)下标越界，用单步执行却没有问题，  
                                                何解？

参考文章：