VB MScomm读的数没有了字母

我用串口调试助手每1000MS发送一个16进制的数如“01 02 0A AB 00 01 03 5C”.但我接收的时候，就没有了中间带字母的内容。请大家指点一下，我在学如何用MScomm接收数据。
Dim datatemp(1000) As Single
Dim num As Integer '用于存储采样个数
Dim temp As Integer '仪表号循环变量
Dim bytSend(1 To 8) As Byte

Private Sub CmdStart_Click()
  Timer1.Enabled = True
End Sub

Private Sub CmdStop_Click()
  Timer1.Enabled = False
End Sub

Private Sub Form_Load()
  MSComm1.CommPort = 4
  MSComm1.InputMode = comInputModeBinary
  MSComm1.RThreshold = 1
  MSComm1.SThreshold = 1
  MSComm1.Settings = "9600,n,8,1"
  MSComm1.PortOpen = True
   
End Sub
'获取存储器测量值并显示
'每发送一条指令触发下面事件，并返回数据串
Private Sub MSComm1_OnComm()
  Dim Inbyte() As Byte
  Dim buffer As String
  Dim datatemp2a, datatemp2b As String
  Dim datdtemp2 As String
  If num > 199 Then Call renew
  Select Case MSComm1.CommEvent
  Case comEvReceive
  Inbyte = MSComm1.Input
  For i = 0 To UBound(Inbyte)
  If Len(Hex(Inbyte(i))) = 1 Then
  buffer = buffer + "0" + Hex(Inbyte(i)) + Chr(32)
  Else
  buffte = buffte + Hex(Inbyte(i))
  End If

  'buffer = buffer + Hex(Inbyte(i)) + Chr(32)
  Text1.Text = buffer
  Next i
  Case comEvSend
  'Call Timer2_Timer
  End Select
End Sub

'每隔1000ms向9个测量仪发送读数据指令
Private Sub Timer1_Timer()
  temp = temp + 1
  If temp > 9 Then temp = 0
End Sub
'发送需要知道的测量设备的地址+读命令+寄存器地址+读的长度+CRC16校验
Sub order_num()
  If temp = 1 Then
  bytSend(1) = &H1
  bytSend(2) = &H3
  bytSend(3) = &H0
  bytSend(4) = &H0
  bytSend(5) = &H0
  bytSend(6) = &H6
  bytSend(7) = &HC5
  bytSend(8) = &HC8
  MSComm1.Output = bytSend
  ElseIf temp = 2 Then
  bytSend(1) = &H2
  bytSend(7) = &HC5 'CRC16校验低位
  bytSend(8) = &HFB 'CRC16校验高位
  MSComm1.Output = bytSend
  ElseIf temp = 3 Then
  bytSend(1) = &H3
  bytSend(7) = &HC4
  bytSend(8) = &H2A
  MSComm1.Output = bytSend
  ElseIf temp = 4 Then
  bytSend(1) = &H4
  bytSend(7) = &HC5
  bytSend(8) = &H9D
  MSComm1.Output = bytSend
  ElseIf temp = 5 Then
  bytSend(1) = &H5
  bytSend(7) = &HC4
  bytSend(8) = &H4C
  MSComm1.Output = bytSend
  ElseIf temp = 6 Then
  bytSend(1) = &H6
  bytSend(7) = &HC4
  bytSend(8) = &H7F
  MSComm1.Output = bytSend
  ElseIf temp = 7 Then
  bytSend(1) = &H7
  bytSend(7) = &HC5
  bytSend(8) = &HAE
  MSComm1.Output = bytSend
  ElseIf temp = 8 Then
  bytSend(1) = &H8
  bytSend(7) = &HC5
  bytSend(8) = &H51
  MSComm1.Output = bytSend
  ElseIf temp = 9 Then
  bytSend(1) = &H9
  bytSend(7) = &HC5
  bytSend(8) = &HC8
  MSComm1.Output = bytSend
  Else
  Exit Sub
  End If
 End Sub
  '接收到一组数据后，即清空

Private Sub Timer2_Timer()
  buffer = ""
   
End Sub

MSComm1.InputMode = comInputModeBinary
这句改为：comInputModeText