Private Sub cmd_senden_Click()
 
    Dim i       As Integer
    Dim sData   As String
 
    For i = 0 To lbx_Client_Bestellung.ListCount - 1
        sData = lbx_Client_Bestellung.List(i) & vbTab & _
          lbx_Client_Bestellung.List(i, 1) & _ vbTab & _
          lbx_Client_Bestellung.List(i, 2)
        Winsock.SendData sData
        DoEvents 
    Next i
 
End Sub

Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
 
    Dim x   As String  'Die Variable EmpfangeneDaten wird als String definiert.
    Dim s() As String
    Dim i   As Integer
 
    Winsock.GetData x, , bytesTotal 
 
    s = Split(x, vbTab)
 
    If UBound(s) >= 2 Then
        i = lbx_Server_Bestellung.ListCount
        lbx_Server_Bestellung.AddItem s(0)
        lbx_Server_Bestellung.List(i, 1) = s(1)
        lbx_Server_Bestellung.List(i, 2) = s(2)
    End If
 
End Sub