vb可不可以实现虚拟中断

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

部分程序如下：

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

If byin(i) < 16 Then
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

原文转自：http://www.ltesting.net