vb可不可以实现虚拟中断

我编一个串口通讯的程序，接受一个单片机的数据，程序总出错，但是在接收时加一个中断，就能得到正确的结果，vb可不可以实现虚拟中断，我试了延迟，但是不行，清高手指教！！！

部分程序如下：

byin = MSComm1.Input

For i = LBound(byin) To UBound(byin)?? ，在这加中断能得到正确结果

If byin(i)

Text1.Text = Text1.Text & ("0" & Hex(byin(i))) & " "

Else: Text1.Text = Text1.Text & Hex(byin(i)) & " "

End If

b(j) = byin(i)

j = j + 1

Next i