Dim strRetPage As [String] = Nothing
strRetPage = strRetPage + Encoding.ASCII.GetString(buffbyte, 0, rBytes)
While rBytes > 0
rBytes = IPsocket.Receive(buffbyte, buffbyte.Length, 0)
strRetPage = strRetPage + Encoding.ASCII.GetString(buffbyte, 0, rBytes)
End While...