ok ho risolto così:

...
Open "c:\desk.jpg" For Binary As #nFile
nPosizione = LOF(nFile) + 1
Put #nFile, nPosizione, sBuffer
Close #nFile
...

Però come faccio a capire se è stata completato il trasferimento??