VB.NETでFTPクライアントを作成していますが、パッシブモードでは機能実現ができません。

　以下はTcpClientを使用したC#のソースです。VBに変換して試してみてください。

        //Portコマンドパラメータ作成
        // ip   - IPアドレス
        // port - port番号
        private string PortParam(IPAddress ip, int port)
        {
            string addr = ip.ToString().Replace('.', ',');

            int p1 = port / 256;
            int p2 = port % 256;

            return addr + "," + p1.ToString() + "," + p2.ToString();
        }

        //アクティブモード接続
        //  cmd - コマンド
        private TcpClient getActvConnection(string cmd)
        {
            IPHostEntry localhost = Dns.GetHostEntry(Dns.GetHostName());
            IPAddress ipaddress = localhost.AddressList[0];
            TcpListener listener = new TcpListener(ipaddress, 50001);
            TcpClient client;

            ExecCmd("PORT " + this.PortParam(ipaddress, 50001) + "\r\n");
            listener.Start();
            ExecCmd(cmd);
            client = listener.AcceptTcpClient();
            listener.Stop();

            return client;
        }

備考

• Socketではなく、TcpClientを使用しています。
• ExecCmd内では、TcpClient.GetStreamを用いてデータの送受信を行っています。