VB的Winsock控件GetData方法获取汉字乱码解决方法

C#发送的socket消息带汉字时，使用Byte类型发送。

VB接收时，使用如下代码：

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim bb(1 To bytesTotal) As Byte
    Dim DD As String
    Winsock1.GetData bb()
    DD = StrConv(bb(), vbFromUnicode)
End Sub