strBCR_DATA = frmMain.MSComm_BCR.Input
       Sleep (200)
       strBCR_DATA = strBCR_DATA & frmMain.MSComm_BCR.Input
       Sleep (100)
       Call Sub_ReadBCR(strBCR_DATA)上面的代码frmMain.MSComm_BCR.Input是条码枪读取的信息,
我认为直接改为
       strBCR_DATA = frmMain.MSComm_BCR.Input
       Call Sub_ReadBCR(strBCR_DATA)就可以了,实在不理解为什么要那样写。