API接收串口数据问题

VB应用API做的串口通信，假如接收二进制发的1，接收到的是313130303031，这是为什么？怎么正确的获取发送数据呢？ '从串口读取数据
 Function ReadCommPure() As String
 On Error GoTo handelpurecom
     Dim RetBytes As Long
     Dim i As Integer
     Dim ReadStr As String
     Dim retval As Long
     Dim CheckTotal As Integer
     Dim CheckDigitLC As Integer
     retval = ReadFile(ComNum, bRead(0), 255, RetBytes, 0)
     ReadStr = ""
     If (RetBytes > 0) Then
         For i = 0 To RetBytes - 1
             ReadStr = ReadStr & Hex(bRead(i))
             If Len(Hex(bRead(i))) = 1 Then
                 strData = strData & "0" & Hex(bRead(i))  '转为16进制显示
             Else
                 strData = strData & Hex(bRead(i))   '转为16进制显示
             End If
         Next i
        Else
         FlushComm
     End If
     ReadCommPure = ReadStr
handelpurecom:
     Exit Function
 End Function