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