VB串口怎么让三个文本框接收不同的数据

VB串口如何让三个文本框接收不同的数据?
要用三个命令按钮发送数据,数据都各不相同,每个按钮执行单击时间后都会自动返回不同的数据:
三个文本框,三个命令按钮
点击命令按钮1,可以在文本框1里接收串口数据
点击命令按钮2,可以在文本框2里接收串口数据
点击命令按钮3,可以在文本框3里接收串口数据
Private Sub MSComm1_OnComm()
On Error GoTo Err
  Dim ReceiveArr() As Byte ' 接收数据数组
  Dim receiveData As String ' 数据暂存
  Dim Counter As Integer ' 接收数据个数计数器
  Dim I As Integer ' 循环变量
   
  If (MSComm1.InBufferCount > 0) Then
  Counter = MSComm1.InBufferCount ' 读取接收数据个数
  receiveData = "" ' 清缓冲
   
  ReceiveArr = MSComm1.Input ' 数据放入数组

  For I = 0 To (Counter - 1) Step 1 ' 数据格式处理

  If (ReceiveArr(I) < 16) Then
  receiveData = receiveData & "0" + Hex(ReceiveArr(I)) ' 小于16，前面加0
  Else
  receiveData = receiveData & Hex(ReceiveArr(I)) ' 加空格显示
  End If

  Next I
   
  Text1.Text = Text1.Text + receiveData ' 显示接收的十六进制数据
  Text1.SelStart = Len(Text1.Text) ' 显示光标位置
  End If
End Select
Err:
end sub
只知道在OnComm()事件中用一个文本框来接收,发送的数据已经写好,就是接收不同的数据还不会!
如何用分别用三个命令按钮来接收三个文本框的不同数据呢?如何用代码实现?

[解决办法]

VB code

Option ExplicitDim SelectCmd As BytePrivate Sub Command1_Click()SelectCmd = 1'发送信息End Sub