TCP/IP comms (send jpg to port)

Imports System.Net.Sockets
Imports System.Net
Imports System.Text
Imports System.IO
 
Server Module
_____________
 
        Const portNo As Integer = 2700
        Const BUFFER_SIZE As Integer = 10
        'Dim listener As New TcpListener(localAdd, portNo)
        Dim listener As New TcpListener(portNo)
        listener.Start()
        Console.WriteLine("Listening...")
        Dim tcpClient As TcpClient = listener.AcceptTcpClient()
        Dim NWStream As NetworkStream = tcpClient.GetStream
        Dim bytesToRead(tcpClient.ReceiveBufferSize) As Byte
        Dim numBytesRead, j As Integer
        '---read incoming stream and writing the bytes to file
        Const FILE_NAME = "c:\test_TCP_server\received.jpg"
        Dim fs As System.IO.FileStream
        fs = New FileStream(FILE_NAME, FileMode.CreateNew, FileAccess.Write)
        Do
            numBytesRead = NWStream.Read(bytesToRead, 0, BUFFER_SIZE)
            fs.Write(bytesToRead, 0, numBytesRead)
        Loop Until Not NWStream.DataAvailable
        fs.Close()
        tcpClient.Close()
        listener.Stop()
        MsgBox("received")
 
Client Module
_______________
 
Const portNo = 2700
        Const FILE_NAME = "c:\meter_pictures\c1m2.jpg"
        Dim tcpClient As New System.Net.Sockets.TcpClient
        tcpClient.Connect("zserver.i989.net", portNo)
        Dim NWStream As NetworkStream = tcpClient.GetStream
        Dim fs As FileStream
        Dim br As BinaryReader
        Dim numBytesRead As Integer
        fs = New FileStream(FILE_NAME, FileMode.Open, FileAccess.Read)
        br = New BinaryReader(fs)
        Dim bytesToSend(br.BaseStream.Length) As Byte
        numBytesRead = fs.Read(bytesToSend, 0, bytesToSend.Length)
        NWStream.Write(bytesToSend, 0, numBytesRead)
        MsgBox("sent!!")
        fs.Close()
        tcpClient.Close()