用API在Word的VBA中使用文件上下载失败，请帮忙找原因

[aabiao]

...
lnginetconn = InternetConnect(lngInet, Adress, Port, UserName, PassWord, 1, Passive&, 0)
'以上连接成功
blnRC = FtpPutFile(lnginetconn, LocalDir & cFile, RemoteDir & cFile, 2, 0) '上传
'blnRC = FtpGetFile(lnginetconn, "/1.asm", "d:\1.asm", False, 0, 2, 0) '下载
'blnRC = FtpDeleteFile(lnginetconn, RemoteDir & cFile)'删除
'blnRC = FtpRenameFile(lnginetconn, "/x.htm", "y.htm") '改名
If blnRC Then MsgBox "上传成功" Else MsgBox "上传失败"

上传马上返回假，下载过一会返回假，但改名成功（去掉注释后测试）
前面定义都有，程序无语法错误。
上下载后面的几个参数是什么意思，我是从网上抄来的，不知意思，后两个参数定义的内容是：
ByVal dwFlags As Long, ByVal dwContext As Long