Скачать файл с Ftp - VB

Формулировка задачи:

Не подскажет ли кто-нибудь, какая ошибка может быть в нижепреведенной программе:
Sub slugebki()
Dim hConnection As Long, hOpen As Long, sOrgPath As String
hOpen = InternetOpen("API-Guide sample program", 1, vbNullString, vbNullString, 0)
hConnection = InternetConnect(hOpen, "ip-адрес", 21, "юзер", "пароль", 1, &H8000000, 1)
a = FtpGetFile(hConnection, "путь\100608_0628.arj", "c:\100608_0628.arj", False, 0, 1, 0)
Err = GetLastError()
InternetCloseHandle hConnection
InternetCloseHandle hOpen
End Sub
Соединение происходит, т.к. переменным hOpen и hConnection присваиваются значения, а файл не скачивается.

Решение задачи: «Скачать файл с Ftp»

textual
                            Листинг программы 
                        
                            <font color="blue">If</font> FtpGetFile(hConnection, <font color="blue">Name</font>, LocalPath, False, FILE_ATTRIBUTE_ARCHIVE, FTP_TRANSFER_TYPE_UNKNOWN, <font color="darkblue"><b>0</b></font>) <font color="blue">Then</font>