RS232C通信受信バイト数について

ハム  2008-02-21 22:34:21  No: 100342  IP: 192.*.*.*

超初心者で失礼します。 
RS232Cを使用してMScommで受信をしたいのですが、9Byte以上のデータを受信すると8byteで切れて9Byte目から上書きしまいます。 
このようになる理由と解決方法を教えて下さい。

Private Sub Form_Load()

MSComm1.CommPort = 1
MSComm1.Settings = "2400,n,8,1"
MSComm1.RThreshold = 1
MSComm1.SThreshold = 1
MSComm1.PortOpen = True

End Sub

Private Sub Command3_Click()

 MSComm1.Output = Chr$(&H31)  & Chr$(&H31) & Chr$(&H31) & Chr$(&H32)& Chr$(&H32)& Chr$(&H32)& Chr$(&H33)& Chr$(&H33)& Chr$(&H33)
 
End Sub

Private Sub MSComm1_OnComm()
If MSComm1.CommEvent = comEvReceive Then

   Text1.Text = MSComm1.Input

End Sub

実行結果
Text1に11122233と一瞬表示され直ぐに3が表示される

編集 削除
ガッ  2008-02-22 09:07:26  No: 100343  IP: 192.*.*.*

既に正答しているので敢えて理由は適当にしました．
> このようになる理由
Text1.Text = MSComm1.Input

> 解決方法
たとえば
Text1.Text = Text1.Text & MSComm1.Input
とするとか

編集 削除