Ho provato ad usare questo per semplificarmi la vita:

'Se non esiste mi crea il file:
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists("C:\WINDOWS\DESKTOP\New.exe") Then
Set f = fso.CreateTextFile("C:\WINDOWS\DESKTOP\New.exe")
f.Close

'Apro il file in scrittura in coda:
Set f1 = fso.OpenTextFile("C:\WINDOWS\DESKTOP\New.exe", 8)
f1.Write receive
f1.Close
End If

'Non capisco perchè il file che mi crea è il doppio di quello che dovrebbe essere.