Lo primero que necesitas sera un servidor Ftp, y su passwd.
Luego colocamos lo siguiente en un formulario
controles
1. Internet Transfer Control = Inet1
Proyecto -> Componentes -> Microsoft Internet Transfer Control.
2. Un boton
3. Una caja de Texto
Para Subir Archivos:
Public Sub Subir()
*** Inet1.Execute "ftp://Usuario:Passwd@IpRemota", "PUT Archivolocal ArchivoRemoto"
End Sub
Para Bajar:
Public Sub Subir()
*** Inet1.Execute "ftp://Usuario:Passwd@IpRemota", "GET ArchivoRemoto ArchivoLocal"
End Sub