Sub GetData(ByVal TC As Socket)
 Dim sb As String
 While TC.Connected = True
            sb = ReadStreamData(TC)
 
        End While
 
        deb(TC.RemoteEndPoint.ToString & " hat die verbindung geschlossen!")
 
 
    End Sub

 Private Function ReadStreamData(ByVal tc As Socket) As String
 
        Dim Buf(tc.Available) As Byte
        tc.Receive(Buf)
        ReadStreamData = Encoding.UTF8.GetString(Buf, 0, Buf.Length)
 
 
    End Function