Receiving Data Over TCP Port

    Private Sub StartProcess()
    '// SET THE LISTENER TO LISTEN ON PORT
    Dim serverSocket As New TcpListener(4050)
    '// DeCLARE VERIBALS
    Dim iCounter As Integer
    '// START THE LISTENER FOR SERVER
    serverSocket.Start()
    '// WRITE MESSAGE TO UI
    '// WRITE MESSAGE TO UI
    Console.WriteLine(" ")
    Console.WriteLine("***** Server Started on Port:4050 *****")
    Console.WriteLine(" ")

    iCounter = 1
    '// START INFINITE LOOP
    For iCounter = 1 To 2
        iCounter = 1
        Try

            '// DECLARE NETWORK STREAM
            Dim mySocket As Socket = serverSocket.AcceptSocket()
            NetworkStream = New NetworkStream(mySocket)
            '// SET THE BYTE LENGTH
            Dim lngByte As Long = 29
            Dim bytesFrom(lngByte) As Byte
            '// READ AND WRITE BYTES FROM NETWORK STREAM
            NetworkStream.Read(bytesFrom, 0, lngByte)
            NetworkStream.Write(bytesFrom, 0, lngByte)
            '// CONVERT BYTES TO STRING
            dataFromClient = BitConverter.ToString(bytesFrom)
            '// CLOSE SOCKET
            mySocket.Close()
        Catch ex As Exception
        End Try
    Next
    serverSocket.Stop()
    ' msg("exit")
    'Console.ReadLine()
End Sub