Public Sub Winsock1Senden(sData As String)
 
  ' Sendet die Länge des Datenpakets und die Daten
 
  Winsock1.SendData Len(sData)
  Winsock1.SendData sData
 
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
 
  Dim sData       As String
  Static Expected As Long
 
  Do
    If (Expected = 0) Then                     ' neuer Block
      Winsock1.GetData Expected, vbLong        ' Länge ermitteln
      bytesTotal = bytesTotal - 4              ' den Long von der Menge abziehen
    End If
    Debug.Print "total/expected  " & bytesTotal & " " & Expected
    If (bytesTotal < Expected) Then Exit Sub   ' auf mehr Daten warten
    Winsock1.GetData sData, vbString, Expected ' benötigte Anzahl Daten us dem 
    ' Buffer lesen
    Expected = 0                               ' Block Ende
    CompleteData sData                         ' Block ausgeben
    bytesTotal = Winsock1.BytesReceived        ' restliche Daten ermitteln
  Loop Until (bytesTotal = 0)                  ' wiederholen, bis alle Daten 
  ' verarbeitet sind
 
End Sub
 
Private Sub CompleteData(ByVal sData As String)
 
  ' Hier werden die empfangenen Pakete weiterverarbeitet...
 
End Sub