Visual Basic.NET - Sockets VB

Estimados,

Soy nuevo en el foro pero desde mucho antes lo utilizo y consulto, descargando manual y otras cosas.

Mi consulta es la siguiente: estoy tratando de implementar sockets en VB y tengo un problema con un código:

SUB para aplicación Servidor
----------------------------------------------------------------------------------------------------------------------------------------------------
Sub escuchar()

While True
.
Dim client As TcpClient = server.AcceptTcpClient()
MsgBox("Connected!")

data = Nothing

Dim stream As NetworkStream = client.GetStream()

Dim i As Int32

i = stream.Read(bytes, 0, bytes.Length)
While (i <> 0)

data = System.Text.Encoding.ASCII.GetString(bytes, 0, i)
TextBox1.Text = TextBox1.Text & [String].Format("Received: {0}", data) & vbCrLf

MsgBox("aviso")

i = stream.Read(bytes, 0, bytes.Length)

End While

client.Close()
End While

End Sub
----------------------------------------------------------------------------------------------------------------------------------------------------
Este código funciona bien incluyendo el "MsgBox("aviso")" pero cuando lo saco no me copia el texto que recibo desde la aplicación "cliente". Leyendo en internet encuentro algo sobre que con el while true se congela el PC o algo así y que se podría colocar un thread.sleep(1000) para resolverlo pero no funciona.

De antemano agradezco su ayuda.

Adrian