Winsock1.GetData接收数据问题
方法1
Dim sTemp1 As String
Winsock1.GetData sTemp1 '接收数据 放入 sTemp1 内 一次最多1024节字?
Text1.Text = sTemp1 '显示为乱码

方法2
Dim bb(1 To 200) As Byte
Dim ti As Integer
Winsock1.GetData bb()

For ti = 0 To 200
Print bb(ti) '全部显示为0
Next ti

有什么办法可以解决？

[解决办法]
Dim bb() As Byte
Dim ti As Long

ReDim bb(bytesTotal-1)
Winsock1.GetData bb
For ti = 0 To bytesTotal-1
debug.Print right("0"+Hex(bb(ti)),2);" ";
Next ti
debug.print