ftp的api调用，在本地可以，远程就不行

帮忙看下，连家里自己的电脑127.0.0.1可以，连单位的就不行，我远程看单位的FTP服务器，我已经登陆上了，但是文件传不上去，why? 
'上传文件
    FOpen = InternetOpen(vbNullString, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0&)
    If FOpen Then
        FConn = InternetConnect(FOpen, "127.0.0.1", 0, "user", "user", 1, 0, 0)
        If FConn Then
            FPut = FtpPutFile(FConn, PathName, FIn, 1, 0)
            If FPut Then
                MsgBox "上传成功"
            End If
            InternetCloseHandle FConn
            InternetCloseHandle FOpen
            MsgBox "关闭成功"
        Else
            MsgBox "连接失败"
        End If
    Else
        MsgBox "服务忙"
    End If
End Sub

在家里自己的电脑上可以上传，但是把IP及用户名和密码改成远程的自己公司的FTP就不行，没有Msgbox“上传成功”，直接跳到Msgbox"关闭成功"了，文件没有传上去，为什么？Help me --------------------编程问答-------------------- 你能保证你拥有FTP站点写入的权限吗? --------------------编程问答-------------------- 我有写入权的，公司的FTP就是我自己设的 --------------------编程问答-------------------- 找到问题了，单位的FTP用的是PASV端口2121，并且允许被动模式数据传输IP是指定FTP服务器的IP，那我应该怎么连？等待高手解答中

补充：VB ,  网络编程