winsock og fil trans

Jeg har download et par eksempler af fil trans med vb og kan se at der
ligesom er et lille problem som går igen og igen.

Hvis klient sender til server for hurtig så bliver filen på server ikke den
rigtige størelse.

Jeg har set at man kan bruge dette

Function send(ByVal tekst As String)

NextPart = False
Winsock1.SendData tekst
Do While NextPart = False
    DoEvents
Loop

End Function

Private Sub Winsock1_SendComplete()
  NextPart = True
End Sub

Men stadig kan server være for langsom og data kan gå tabte

Jeg har også prøvet at lade server sende oplysninger den anden vej på at dataerne er gemt, men så falder ens hastighed temlig meget og det er jo ikke fedt.

Er der nogle som har en rigtig god løsning til dette ?