请lemon 师兄回答好吗？

在下用winsock 控件发送EXCEL文件时遇到的问题如下：（部分关键代码）
Private Sub sckClient_DataArrival(ByVal bytesTotal As Long)
Dim myFile() As Byte
Dim myLong As Double
Dim myPath As String
Dim s As String’由于接收其它大量信息时需要用字符串的格式，所以S没有预设为BYTE()数组，而采用接   收EXCEL文件时将string转换为BYTE()数组的方式
sckClient.GetData s
Kill "D:\Program Files\电渣数据采集系统客户端\电渣数据表\10月.xls"’先删除原先存在的老文件
myPath = "D:\Program Files\电渣数据采集系统客户端\电渣数据表\10月.xls"
    myFile = strbyt(s)’此处的字符串转换为BYTE数组函数在下实在是不知该如何下手，我曾经尝试用StrConv(s, vbFromUnicode) ，但接收到的文件不对，请师兄给个示例代码，谢谢！
    Open myPath For Binary As #1        '新建文件
    myLong = FileLen(myPath)
    Put #1, myLong + 1, myFile                '将收到的数据写入新文件中
    Close #1   '关闭
End sud