Please try following macro.

[VBA]
Option Explicit

Sub ftptest()
MsgBox DownloadFile("ftp://aValidFTPsite", "username", "password", _
"I want my sample file.txt", _
"C:\Temp\DOWNLOADED SampleFile.txt")
End Sub

Function DownloadFile(ByVal HostName As String, _
ByVal UserName As String, _
ByVal Password As String, _
ByVal RemoteFileName As String, _
ByVal LocalFileName As String) As String

Dim FTP As InetCtlsObjects.Inet
Set FTP = New InetCtlsObjects.Inet
With FTP
.URL = HostName
.Protocol = 2
.UserName = UserName
.Password = Password
.Execute , "Get " + RemoteFileName + " " + LocalFileName
Do While .StillExecuting
DoEvents
Loop
DownloadFile = .ResponseInfo
End With
Set FTP = Nothing
End Function
[/VBA]

Suat