- 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 
-