VB 串口接收16进制数据的有关问题

VB 串口接收16进制数据的问题
  Private Sub hexReceive()
 
On Error GoTo Err
    Dim ReceiveArr() As Byte                                                        ' 接收数据数组
    Dim receiveData As String                                                       ' 数据暂存
    Dim Counter As Integer                                                          ' 接收数据个数计数器
    Dim i As Integer                                                                ' 循环变量
    
     If (MSComm.InBufferCount > 0) Then
        Counter = MSComm.InBufferCount                                              ' 读取接收数据个数
        receiveData = ""                                                            ' 清缓冲
        
        ReceiveArr = MSComm.Input                                                   ' 数据放入数组

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

            If (ReceiveArr(i) < 16) Then
                receiveData = receiveData & "0" + Hex(ReceiveArr(i))     '
            Else

                receiveData = receiveData & Hex(ReceiveArr(i))
            End If

        Next i
        
        TxtReceive.Text = TxtReceive.Text + receiveData                          ' 显示接收的十六进制数据，能正常显示的
         Print Mid(receiveData, 13, 8)                      ' 取接受到的字符串的13位开始的8个字符，为什么这句就不行呢
    End If

  
Err:

End Sub


               就最后 不能取  receiveData 的13位开始的8个字符呢???
[解决办法]
你的代码有问题，参阅一下这个：
http://download.csdn.net/detail/veron_04/1262066
[解决办法]
你的代码有问题，参阅一下这个：
http://download.csdn.net/detail/veron_04/1262066
[解决办法]
  有什么 问题啊
 谢谢 你说明下啊
  你发的 连接  没有下载 提示的