Dim HandleID as Integer
Dim Paket as String
 
HandleID = FreeFile
Paket = Space(1024)
 
Open "c:\dateiname.xyz" for Binary as #HandleID
 
While Paket <> ""
  Get #HandleID, , Paket
  WinSock1.SendData Paket
Wend
 
Close #HandleID