Private Sub doWork()
            Dim requestCount As Integer
            Dim bytesFrom(10024) As Byte
            Dim dataFromClient As String
            Dim sendBytes As [Byte]()
            Dim serverResponse As String
            Dim rCount As String
            Dim blnCloseSocket As Boolean
 
            blnCloseSocket = False
            requestCount = 0
 
            While (Not blnCloseSocket)
                Try
                    requestCount = requestCount + 1
                    Dim networkStream As NetworkStream = clientSocket.GetStream( _
                      )
                    networkStream.Read(bytesFrom, 0, CInt( _
                    clientSocket.ReceiveBufferSize))
                    dataFromClient = System.Text.Encoding.ASCII.GetString( _
                    bytesFrom)
                    dataFromClient = dataFromClient.Substring(0, _
                    dataFromClient.IndexOf("$"))
                    If dataFromClient = "Close" Then
                        clientSocket.Close()
                        counter -= 1
                        blnCloseSocket = True
                    Else
                        msg("From client: " + dataFromClient)
                        rCount = Convert.ToString(requestCount)
                        serverResponse = dataFromClient + " of " + rCount + "" & _
                          "added!"
                        sendBytes = Encoding.ASCII.GetBytes(serverResponse)
                        networkStream.Write(sendBytes, 0, sendBytes.Length)
                        'mit einem zweiten Write funktionierts
                        networkStream.Write(sendBytes, 0, sendBytes.Length)
                        networkStream.Flush()
                        msg(serverResponse)
                    End If
                Catch ex As Exception
                    MsgBox(ex.ToString)
                End Try
 
            End While
 
        End Sub