1º Formulario con boton y en el código del boton ponemos:

Private Sub Comando0_Click()
    Dim varEjecuta As Variant
    varEjecuta = Shell("ftp -s:c:\ftp\archi.txt", vbNormalFocus)
End Sub
*"c:\ftp\archi.txt" lo debemos sustituir por el archivo que corresponda.

2º En el archivo de texto (en este caso archi.txt) ponemos lo siguiente:

open ftp.loquesea.tal
usuariopepito
passpepito
put c:\ftp\Ado2.log
disconnect
!pause
by

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)