dim adminContraseña as string
dim usuario as string
adminContraseña="FedericogarciaLorca%&/()=2007"
adminUsuario="adminFTP@miweb"
private sub form1_load()
dim conectado as boolean
dim conexManual as VbMsgBoxResult
conectado= conectaFTP(adminContraseña,adminUsuario)
if conectado=false then
conexManual= msgbox("La contraseña, el usuario, o ambos no es correcto. Desea hacer una conexión manual?", vbYesNO,"Falló la conexión al FTP")
if conexmanual=vbYes then
formConectarManual.show 1
end if
end if
end sub