dim tmp_hex as long
tmp_hex
--从串口传过来一个4字节的长整型,
然后     
   DI_lbl(15) = tmp_hex & &H8000                         
             DI_lbl(16) = tmp_hex & &H10000
             DI_lbl(17) = tmp_hex & &H20000
它报类型不匹配