No puedo leer socket mas de 2 veces la data me sale vacia

[torrefuerte]

Gracias por el link, pero el tema es que cuando hago el debug y bombardeo el socket y puerto por cmd....telnet 192.168.1.11 5001, al tratar de leer la data solo lo hace laprimera vez, las posteriores no las toma las deja vacias, no se si sera por el sleep pequeño que le doy, en verdad no se q eestoy haciendo mal, es un solo socket y son varias peticiones.....ojala puedan ayudarme, parte del codigo de mi server es esta

Dim data As [Byte]()
Dim cadena As [String] = [String].Empty
Dim i As Int32

Try
data = New [Byte](1024) {} 'era 1029 se cambia 1024

If stream.CanRead Then

Do While stream.DataAvailable
i = stream.Read(data, 0, 5)
'longitud de la trama
cadena = System.Text.Encoding.ASCII.GetString(data, 0, i) '"00023"
longitud = Convert.ToInt32(cadena) 'longitud de la data que le o del socket
i = stream.Read(data, 0, longitud)
trama = System.Text.Encoding.ASCII.GetString(data, 0, i)
Loop

End If

Catch ex As Exception
Console.Write("error", ex)
End Try