Ich bin noch ziemlich am Anfang des Programmierens in VB und hab folgendes Problem:

Ich will eine Datei (Bild, Textdatei, oder sonst was) übers netztwerk versenden.
Dazu hab ich folgender quellcode:
sender:

Open data2 For Binary Access Read As #1
Do While Not EOF(1)
Get #1, , sDat
MsgBox (sDat)
ws2.SendData sDat
DoEvents

Loop
Close #1

In "data2" seht der Pfad der Datei die gesendet werden soll und "ws2" ist das Winsock control.

Empfänger:

Private Sub ws2_DataArrival(ByVal bytesTotal As Long)

ws2.GetData dat1

pos = pos + 1

Open dat2 For Binary Access Write As #2
Seek #2, pos
Put #2, , dat1
Close #2

End Sub

in dat2 steht der ort wo die datei gespeichert werden soll.

Das kanze funktioniert jetzt aber nur fehlerfrei wenn ich beim sender ne zeitverzögerung von ca. 200ms pro byte einfüge oder in der schleife ein echo ausgebe und nach jedem byte auf ok klicken muss.
Dadurch ist die datenübertragung aber verdammt langsam, ich brauch für ne etwas größere textdatei (ca. 64kB) ca. ne halbe stunde.

Wie kann ich das ändern dass es schneller geht?