网口的问题

Dim MyStr As String

。。。。。。。。。。。。。。。。。。。。。。。
Call SckServer.GetData(arrBuff, vbByte, bytesTotal)
    MyStr = StrConv(arrBuff, vbUnicode)
   
    Charnum = Len(MyStr)
    '
    a = 0
    b = 0
    For i = 0 To (Charnum - 1)
        
        fbuf = Mid(MyStr, i + 1, 1)
        If (fbuf = ".") Then
            b = i
        ElseIf (fbuf = "-") Then
            a = i
        Else
            
            Encoder(i) = Mid(MyStr, i + 1, 1)
        End If
           
    Next
我网口中断里是这样写的，只能存放字符，不是字符的就不好收发。
我想改成能收发任意16进制的，该怎么改呀？谢谢！

[此贴子已经被作者于2019-9-23 08:22编辑过]