Sockets/TCP Send problem, send works for short strings...

[Dario]

i'm working on a simple sender/receiver... but i got a problem.
It seems to send small strings accross fine ... but not the content of my MULTI LINE textbox. LENGH OF TEXTBOX 524 CHARACTERS.

Transmitter

Dim TcpClient As New TcpClient
 
        If Not TcpClient.Connected Then
            TcpClient.Connect(9000, "127.0.0.1")
        End If
        Dim networkStream As NetworkStream = TcpClient.GetStream()
 
        '        If networkStream.CanWrite Then
        Dim sendbytes(10240) As Byte
        
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''' REPLACE "TEST DATA TEST DATA" WITH A MULTI-LINE TEXT BOX RESULT
''' VALUE. 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
 
sendbytes = Encoding.ASCII.GetBytes("TEST DATA TEST DATA")
        networkStream.Write(sendBytes, 0, sendBytes.Length)
        'End If
        TcpClient.Close()

Listener... just spits the output to console....

Dim server As TcpListener
        server = Nothing
        'On Error Resume Next
        Try
            ' Set the TcpListener on port 9000.
            Dim port As Int32 = 9000
            Dim localAddr As System.Net.IPAddress = System.Net.IPAddress.Parse("127.0.0.1")
 
            server = New TcpListener(localAddr, port)
 
            ' Start listening for client requests.
            server.Start()
 
            ' Buffer for reading data
            Dim bytes(20480) As Byte
            Dim data As String = Nothing
 
            ' Enter the listening loop.
            While True
                Console.Write("Waiting for a connection... ")
 
                ' Perform a blocking call to accept requests.
                ' You could also user server.AcceptSocket() here.
                Dim client As TcpClient = server.AcceptTcpClient()
                Console.WriteLine("Connected!")
 
                data = Nothing
 
                ' Get a stream object for reading and writing
                Dim stream As NetworkStream = client.GetStream()
 
                Dim i As Int32
 
                ' Loop to receive all the data sent by the client.
                i = stream.Read(bytes, 0, bytes.Length)
                While (i <> 0)
                    ' Translate data bytes to a ASCII string.
                    data = System.Text.Encoding.ASCII.GetString(bytes, 0, i)
                    Console.WriteLine("Received: {0}", data)
 
                    ' Process the data sent by the client.
                    data = data.ToUpper()
                    'Dim msg As Byte() = System.Text.Encoding.ASCII.GetBytes(data)
 
                    ' Send back a response.
                    'stream.Write(msg, 0, msg.Length)
                    'Console.WriteLine("Sent: {0}", data)
 
                    i = stream.Read(bytes, 0, bytes.Length)
 
                End While
 
                ' Shutdown and end connection
                client.Close()
            End While
        Catch e As SocketException
            Console.WriteLine("SocketException: {0}", e)
        Finally
            server.Stop()
 
        End Try
 
        Console.WriteLine(ControlChars.Cr + "Hit enter to continue....")
        Console.Read()