急！！请问关于传递ｂｙｔｅ数组的问题

Question

'发送端:
dim senddata(1 to n ) as byte
' 符值senddata
Sendwinsock.Senddata senddata
'接收端:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)   Dim Getdata() As Byte
   Call Winsock1.Getdata(Getdata, vbArray Or vbByte, bytesTotal)end sub

Answer 1

'發送端
dim senddata(1 to n) as byte
dim strSend as string 
strsend=strconv(senddata,vbUnicode)
sendwinsock.senddata strsend' 接受端
private Sub Winsock1_DataArrival(Byval BytesTotal as long)
    dim srRetr as string
    dim GetData() as byte
    winsock1.GetData strRetr,vbString
    GetData=strconv(strretr,vbFromUnicode)
end Sub