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
               (
geocities.com/es/ensolva/Descargas)                   (
geocities.com/es/ensolva)                   (
geocities.com/es)