VB и FTP не получается законектиться

Здравствуйте у меня я пытался исопльзовать пример с этого сайта что бы закатать файлы по фтп но чет у меня неполучается модет вы мен объясните что я делаю не так?

'открыть интеренет соединение
Private Declare Function InternetOpen _
Lib "wininet.dll" Alias "InternetOpenA" ( _
ByVal sAgent As String, _
ByVal nAccessType As Long, _
ByVal sProxyName As String, _
ByVal sProxyBypass As String, _
ByVal nFlags As Long) As Long

'установить интеренет соединение
Private Declare Function InternetConnect _
Lib "wininet.dll" Alias "InternetConnectA" ( _
ByVal hInternetSession As Long, _
ByVal sServerName As String, _
ByVal nServerPort As Integer, _
ByVal sUserName As String, _
ByVal sPassword As String, _
ByVal nService As Long, _
ByVal dwFlags As Long, _
ByVal dwContext As Long) As Long



'получить файл с фтп
Private Declare Function FtpGetFile _
Lib "wininet.dll" Alias "FtpGetFileA" ( _
ByVal hFtpSession As Long, _
ByVal lpszRemoteFile As String, _
ByVal lpszNewFile As String, _
ByVal fFailIfExists As Boolean, _
ByVal dwFlagsAndAttributes As Long, _
ByVal dwFlags As Long, _
ByVal dwContext As Long) As Boolean

'закачать файл на фтп
Private Declare Function FtpPutFile _
Lib "wininet.dll" Alias "FtpPutFileA" ( _
ByVal hFtpSession As Long, _
ByVal lpszLocalFile As String, _
ByVal lpszRemoteFile As String, _
ByVal dwFlags As Long, _
ByVal dwContext As Long) As Boolean

'закрытие сесси
Private Declare Function InternetCloseHandle _
Lib "wininet.dll" (ByVal hInet As Long) As Integer

Private Sub Form_Load()
'Инициализация хендлов 1
hINetSession = InternetOpen("Mozilla", 0, vbNullString, vbNullString, 0)
'Инициализация хендлов 2

hSession = InternetConnect(hINetSession, "ftp://ftp.microsoft.com", _
"21", "anonymous", "guest", 0, 0, 1)

'Закачать файл по FTP
If FtpGetFile(hSession, "peropsys/readme.txt", "c:\TEST.NICE", False, 0, 1, 0) = False Then
MsgBox "Call to FtpGetFile Failed!"
Else
MsgBox "Работа выполенена , я молодец"
End If

'Теперь надо закрывать хендлы
Call InternetCloseHandle(hSession)
Call InternetCloseHandle(hINetSession)

End Sub

Переменная hSession=0, переменная hINetSession принимает не нулевое значение.... скачать файл по ftp не получается