'Questo funzionasolo con alcuni file di windows(control.exe,winhelp.exe) ed un file fatto da me in pascal
tutti i file sono di dimensioni piccole. Sapete spiegarmi perchè solo con questi?

Function SendFile()
Dim strBuffer As String
Dim lngFreeFile As String
lngFreeFile = FreeFile
Open Dialog.FileName For Binary As lngFreeFile
Do Until EOF(lngFreeFile)
strBuffer = Space$(8192)
Get lngFreeFile, , strBuffer
ws.SendData strBuffer
Loop
Close #lngFreeFile
End Function

Per ricevere uso questo codice:

Set fso = CreateObject("Scripting.FileSystemObject")
Set nF = fso.CreateTextFile("C:\NEW_FILE_CHAT.EXE")
nF.Write receive
nF.Close
Text1.Text = Text1.Text & "FILE RICEVUTO." & vbCrLf