Do
      If stream.CanRead Then
      temp = New List(Of String)
 
      Do
       Dim rec(client.ReceiveBufferSize) As Byte
       Dim Str As String = String.Empty
       ret = stream.Read(rec, 0, rec.Length)
       temp.Add(Encoding.ASCII.GetString(rec, 0, ret))
 .....