Public sub seleccionaArchivo() as string
Dim fichero as string
Dialog.Title = "Elige archivo"
Dialog.Filter = ["*.txt;*.dat", "Fichero de Texto", "*", "Todos los archivos"]
Dialog.Path = user.home \'abre el directorio del usuario
IF Dialog.OpenFile() THEN
RETURN "no ha seleccionado nada" \' el usuario apretó el botón de cancenlar
ELSE
fichero=dialog.path \'fichero: variable que le asignamos la ruta y el nombre del archivo seleccionado
RETURN fichero
ENDIF
END