VB6-->RS232-->8051 寫51端程式盲點

我要做VB串列控制伺服馬達遇到問題
問題:
VB端  Command1按下     丟出3筆串列資料
Private Sub Command1_Click()
     MSComm1.Output = Chr$(1)
    MSComm1.Output = Chr$(2)
    MSComm1.Output = Chr$(3)
End Sub

問題是51的部分
while (RI==0);{RI=0,a=SBUF;}     //把VB端  1  給a  此時a=1
while (RI==0);{RI=0,b=SBUF;}     //把VB端  2  給b  此時b=1
while (RI==0);{RI=0,c=SBUF;}     //把VB端  3  給c  此時c=1
我的8051  接收連續的3筆資料這樣可以順利的接收嗎?
我的51程式要怎樣才能接收連續的3筆資料?