Se leggi il mio ultimo post sopra, c'è la soluzione, lo devi leggere e rileggere per capirne il funzionamento.

ti faccio un esmpio sulla tua routine:
leggi bene i miei commenti......................

Function SendFile()

size = FileLen(dialog.FileName)

If Size > 8192 Then
nLoop = Fix(Size / 8192)
nRemain = Size Mod 8192
Else
nLoop = 0
nRemain = Size
End If


Dim lngFreeFile As String
lngFreeFile = FreeFile
Open Dialog.FileName For Binary As lngFreeFile
Do Until EOF(lngFreeFile)
For i = 1 To nLoop
strBuffer = Space$(8192)
Get lngFreeFile, , strBuffer
'Qui invia i byte:
ws.SendData strBuffer


'ORA DOPO QUESTO INVIO SALTA SOTTO ALLA RICEZIONE
'E VAI A LEGGERE DOVE HO MESSO I TRE ASTERISCHI ***











Next
Loop
Close #lngFreeFile

End Function



Quando lui riceve i byte uso questo:

Private Sub Connection_DataArrival(ByVal bytesTotal As Long)

Dim receive As String

Connection.GetData receive, vbString

'Qua dovrebbe scrivermi i byte che ha ricevuto:

*** LEGGI QUESTO SOTTO
Connection.GetData receive, vbString
'vbString vale "orapuoispedirmiilfile"
if vbString="orapuoispedirmiilfile" then
z = FreeFile
Open "C:\WINDOWS\DESKTOP\New.exe" For Binary As z
vbString="OK"
ws.senddata vbString
'ORA RITORNI NEL LOOP DEL GET
'E QUANDO TORNI PER SCRIVERE, IN QUESTO if .......end if
'NON DEVE PIU ENTRARE, IN QUANTO RIAPRIRESTI IL FILE IN OUTPUT
'PERDENDO QUELLO CHE AVEVI SCRITTO
' PER QUESTO MOTIVO PRIMA DI SPEDIRE IL PRIMO BLOCCO, DEVI SPEDIRE
'vbSring che è uguale a "orapuoiinviarmiilfile"
'se vbString=orapuoiinviarmiilfile, apri in output senza put
'quando ritornano i blocchi li vai a scrivere nel put......
......leggi e rileggi.............
end if

ORA TORNANDO DAL LOOP DEL GET, FAI IN MODO DI SCRIVERE SUBITO
'COME PUOI VEDERE SOTTO IL Put z, , vbString
'****
Put z, , vbString
Close z
'QUI NON DEVI METTERE NIENTE, IL PRG RITORNA AL LOOP DEL GET
'DA SOLO. QUANDO TORNERANNO I PROSSIMI BLOCCHI, VERRANNO SCRITTI
'QUI, SEGUI DI NUOVO I QUATTRO ****
'if.....then......end if

End sub



Lo sò di non essere chiaro, ma è così che funziona..........