Steno se ti fa piacere ho deciso di usare il tuo codice.
Non so se l' ho capito bene ma...
Per lo meno io ho capito che invii 8192 byte alla volta fino alla fine del file. Io mi ostinavo ad inviarli in un blocco solo.

Il problema è che non riesco a ricevere i dati.
Come posso ricevere i dati inviati?
questo è il codice che ho infilato nella Data_Arrived:
x = FreeFile
Open "C:\WINDOWS\DESKTOP\New.exe" For Binary As x
Put x, , receive
Close x

Poi volevo chiederti se una volta ricevuto il file al posto di "New.txt" si poteva mettere il nome del file di origine.
Comunque questo è di secondaria importanza.

Grazie!