Any body help me? (socket.receive)

Hi,does anybody can help me?
It is very pressing.

This is my program that used to receive some data:
---------------------------------------------------------------------------
client_socket = server_socket.Accept()
Dim receive_byte(1024 ) As Byte
Dim receive_str As String
client_socket.Receive(receive_byte)
receive_str = Encoding.ASCII.GetString(receive_byte)
client_socket.Close()
---------------------------------------------------------------------------
but, if the 1024 is not enough to used,
the error(SocketException) will occur.
but I don't want to just add the volume of receive_byte(),
example: 1024 becomes 10000
How could I solve this problem?
I want to receive the all data that came from client.

Thanks!