RS232Cで複数の値を送信/受信するには

ばし 2007-11-29 00:24:06 No: 99846

ＴＸＤとＲＸＤを繋げた回路を用いて
一つのポートで３つの値の送受信をするプログラムを作っているのですが

Ｔｅｘｔ１．２．３に入れた値を４．５．６に入れるようにしてるつむりです。
しかしＴｅｘｔ４に３つの値全てが出てしまってどうしたらいいのかわかりません。
どうしたらいいでしょうか？

Private Sub Form_Load()

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

End Sub

Private Sub Command1_click()
  Dim StrBuffer1 As String
  Dim StrBuffer2 As String
  Dim StrBuffer3 As String

  StrBuffer1 = Text1.Text
  StrBuffer2 = Text2.Text
  StrBuffer3 = Text3.Text
  MSComm1.Output = StrBuffer1 & Chr$(&HD)
  MSComm1.Output = StrBuffer2 & Chr$(&HD)
  MSComm1.Output = StrBuffer3 & Chr$(&HD)

End Sub

Private Sub Command2_click()
        Dim Buffer1 As Variant
        Dim Buffer2 As Variant
        Dim Buffer3 As Variant

                Buffer1 = MSComm1.Input
                Buffer2 = MSComm1.Input
                Buffer3 = MSComm1.Input
                Text4.Text = Buffer1
                Text5.Text = Buffer2
                Text6.Text = Buffer3

End Sub

GOD 2007-11-29 01:02:32 No: 99847

'↓の条件としてボタンクリック前に全てのデータが受信できていること。
Private Sub Command2_click()
Dim Buffer As Variant
Dim strBuf2() As String

    Buffer = MSComm1.Input
    strBuf2 = Split(Buffer, Chr$(&HD))
    Text4.Text = strBuf2(0)
    Text5.Text = strBuf2(1)
    Text6.Text = strBuf2(2)
End Sub