Problema Código VBA (FTP)

[rcockell]

Prezados,

Poderiam, por favor, me ajudar com o problema abaixo?

Possuo um código VBA que deveria fazer download de um arquivo, via ftp, de uma determinada máquina.

Segue abaixo o código:

Function fnDownloadFile(ByVal strHostName, _

ByVal strUserName As String, _

ByVal strPassWord As String, _

ByVal strRemoteFileName As String, _

ByVal strLocalFileName As String) As String

'// Set a reference to: Microsoft Internet Transfer Control

'// This is the Msinet.ocx

Dim FTP As Inet 'CtlsObjects.Inet

Set FTP = New Inet 'CtlsObjects.Inet

On Error GoTo Errh

With FTP

.URL = strHostName

.Protocol = 2

.UserName = strUserName

.Password = strPassWord

.Execute , "Get " + strRemoteFileName + " " + strLocalFileName

Do While .StillExecuting

DoEvents

Loop

fnDownloadFile = .ResponseInfo

End With

Xit:

Set FTP = Nothing

Exit Function

Errh:

fnDownloadFile = "Error:-" & Err.Description

Resume Xit

End Function

Ao rodar o script acima,o erro "erro em tempo de execuçã0 429, o componente ActiveX não pode criar o objeto", aparece na linha em negrito do código.

Vocês poderiam, por favor, me dar uma dica de como contornar esse problema? Estou procurando exaustivamente na internet e, até agora, nada.

Desde já agradeço pela atenção.