Visual Basic - Enviar datos de un formulario a un servidor ftp

'Ejemplo de como cargar un archivo .

Private Sub Cargar()

Dim El_Host As String

    If txt_local = "" Then

       MsgBox " No hay archivo pra subir", vbInformation

      Exit Sub

    End If

    List1.AddItem " ..Subiendo archivo "

    El_Host = "ftp://" & El_Host

    With Inet1

        'Asigna la Url, es decir el nombre del Host FTP

        .Url = El_Host

        'nombre de usuario y password de la cuanta FTP

        .UserName = txt_Usuario

        .Password = txt_Pass

        'Escribe el fichero en el servidor con el comando Put

        Call .Execute(, "Put " & txt_local & " " & txt_Remoto)

        DoEvents

     End With

End Sub