problemas con envio de ficheros mediante winsock

[cadrogui]

lo estoy tratando de la siguiente forema este code esta en el cliente:

Public Sub enviodefichero()
Dim BuFfile As String
Dim LnFile As Long
Dim fch As String
On Error GoTo error

LnFile = FileLen(Form1.Text1.Text)
Open Form1.Text1.Text For Binary As #2
BuFfile = String(LnFile, " ")
Get #2, , BuFfile
Form1.Winsock1.SendData BuFfile
Close #2
Form1.Text1.Text = ""
Exit Sub
error:
rr = "El fichero que quiere extraer no existe."
MsgBox rr
On Error Resume Next
End Sub


lo que no se es como guardar el fichero en el server..

salu2