Как правильно принять файл по tcp ip протоколу ?

Пробую так:

VB .NETDim Addr As Net.IPAddress = Net.Dns.Resolve(Address.Text).AddressList(0)
Dim ns As Net.Sockets.NetworkStream
Dim query As Byte()
Dim tcpClient As New Net.Sockets.TcpClient
tcpClient.Connect(Addr, 80)
ns = tcpClient.GetStream
uery = System.Text.Encoding.ASCII.GetBytes("http запрос")
ns.Write(query, 0, query.Length)
Dim bytes(tcpClient.ReceiveBufferSize) As Byte
Dim Off As Integer = 5
Dim f As Integer
Dim result As String = ""
For f = 0 To Off
ns.Read(bytes, f, tcpClient.ReceiveBufferSize - f)
result += System.Text.Encoding.ASCII.GetString(bytes)
Next
ns.Close()
tcpClient.Close()


но приходят только какие-то куски.