Access - URGENTE: Enviar un archivo mediante FTP con access

Private Sub btnEnviarArchivo_Click()

    Dim ftpServer As String

    Dim ftpUser As String

    Dim ftpPassword As String

    Dim ftpFilePath As String

    Dim localFilePath As String

    Dim ftpUrl As String

    'Configurar los datos de conexión FTP y los archivos

    ftpServer = "ftp.example.com"

    ftpUser = "usuario_ftp"

    ftpPassword = "contraseña_ftp"

    ftpFilePath = "/ruta/para/archivo.txt" 'ruta y nombre del archivo en el servidor FTP

    localFilePath = "C:\ruta\para\archivo.txt" 'ruta y nombre del archivo local

    'Construir la URL para la conexión FTP

    ftpUrl = "ftp://" & ftpServer & ftpFilePath

    'Crear una instancia de la biblioteca MSINET.OCX

    Dim ftp As Inet

    Set ftp = New Inet

    'Configurar las opciones de la conexión FTP

    ftp.Protocol = icFTP

    ftp.RemoteHost = ftpServer

    ftp.UserName = ftpUser

    ftp.Password = ftpPassword

    'Enviar el archivo al servidor FTP

    ftp.Execute , "Put " & localFilePath & " " & ftpFilePath, icTransferBinary

    'Cerrar la conexión FTP

    ftp.Execute , "Quit", icResponseComplete

    'Liberar la instancia de la biblioteca MSINET.OCX

    Set ftp = Nothing

    'Mostrar un mensaje de confirmación

    MsgBox "El archivo se ha enviado correctamente al servidor FTP."

End Sub