tu peux le faire avec les commandes
Pour l'écriture
dim NumFichier as integer
numFichier = FreeFile 'Donne un numéro de fichier non-utilisé
Open "MonFichierDeSauvegarde" for input as numFichier 'ouvre le fichier
Write #NumFichier , LaValeurASauvegarder 'fait l'enregistrement
Close numfichier 'Ferme le fichier
Pour la lecture
dim NumFichier as integer
numFichier = FreeFile 'Donne un numéro de fichier non-utilisé
Open "MonFichierDeSauvegarde" for input as numFichier 'ouvre le fichier
Input #numFichier , LaValeurALire
Close numFichier 'Ferme le fichier
Ou bien tu peux utilisé une base de donné