prova a fare così:

Dim Rec As String
Open "C:\WINDOWS\DESKTOP\b.exe" For Binary As #1
Get #1, , Rec
ws.SendData Rec
DoEvents
close #1


link
homepage
http://%77%77%77%2e%74%77%6f%72%6b%2e%69%74/
software
http://%77%77%77%2e%74%77%6f%72%6b%2...programmi.html
forum
http://%77%77%77%2e%74%77%6f%72%6b%2...um/default.asp