VB6按单字节发送二进制数据，用VS2013接收，出现高位自动补零问题

我在VB6下有一个函数，从图片文件中按字节读出数据，发送给Vs2013函数。

VB6函数：

Private Sub SendData()
    Dim Dat() As Byte
    Open PicFile For Binary As #1
    ReDim Dat(LOF(1)-1)
    Get 1, ,Dat
    Close #1
    Dim i As Long
    For i = 0 To LOF(1)-1
        GetData ChrB(Dat(i)) '发送给2013函数
    Next
End Sub

VS2013函数：

Public Sub GetData(ByRef mBytes As Object)
    Dim mData() As Byte = System.Text.Encoding.Unicode.GetBytes(mBytes)
    JoinData(mDat, mData) '我自己的函数。mDat为二进制数组，接收到的数据都附加进去
End Sub

问题：VB6发送过来的单字节，到了2013强制按字符串接收（Unicode为双字节编码），单字节高位强制补零，并变成二进制数据附加到mDat中去了。如果VB6按双字节发送，可以解决一定问题，但是最后如果剩余一个字节，VB6还得按单字节发送，又出现问题！还有VB6中必须使用ChrB函数，这是要求。

请问各位怎么解决？2013所有编码我都试了。

https://blog.csdn.net/weixin_30298497/article/details/95299576