Problem with VB.NET code

See more:

VB

networking

Hi,

I've been working on a client and a server application, at the moment it simply sends some text to the specified IP.

It all works fine, except instead of just sending the text it sends a total of 8193 bytes. I've been trying to figure out why, but have not yet found out why.

Any ideas would be greatly appreciated :)
Thanks,
Lloyd

Client:

Imports System.Net.Sockets
Imports System.Text
Module Module1

    Sub Main()
        Dim Data As [Byte]() = Encoding.ASCII.GetBytes(Console.ReadLine)
        Try
            Dim TCP As New System.Net.Sockets.TcpClient
            Console.Write("Enter address: ")
            Dim InputAddress As String
            InputAddress = Console.ReadLine
            TCP.Connect(InputAddress, 1000)
            Dim Stream As NetworkStream = TCP.GetStream
            Stream.Write(Data, 0, Data.Length)
            TCP.Close()
            Console.ReadLine()
        Catch ex As Exception
            Console.WriteLine("Error: " + ex.Message)
            Console.ReadLine()
        End Try
End Sub
End Module

Server:

Imports System.Net.Sockets
Imports System.Text
Module Module1

    Sub Main()
        Dim TCPWait As New TcpListener(1000)
        TCPWait.Start()
        Console.WriteLine("Waiting for connection...")
        Try
            Dim Client As TcpClient = TCPWait.AcceptTcpClient
            Console.WriteLine("Connection established!")
            Dim Stream As NetworkStream = Client.GetStream
            Dim Buffer(Client.ReceiveBufferSize) As Byte
            Stream.Read(Buffer, 0, CInt(Buffer.Length))

            Dim RecievedData As String = Encoding.ASCII.GetChars (Buffer)
            Console.WriteLine(RecievedData.Length)
            Console.WriteLine("Client: " + RecievedData)
            Console.ReadKey()
            Client.Close()
            Console.ReadLine()

        Catch ex As Exception
            Console.WriteLine("Error: " + ex.Message)
        End Try
    End Sub

End Module