Salut, j'y travaille dessus justement, pas trop compliqué ton prob.
Crée une page avec un boutton et un listbox
(Command1 et list1) et colle ce bout, fait F5 et clique sur le bouton.
Private Sub Command1_Click()
fichier$ = "c:\mafiche.ini" ' Le chemin et le nom du fichier est au choix
Open fichier$ For Random As #1
Get #1, 1, a$ ' Emplacement 1 dans le fichier
Get #1, 2, b ' Emplacement 2 dans le fichier
Close
List1.AddItem a$
List1.AddItem b
End Sub
Private Sub Form_Load()
a$ = "Texte enregistré ..."
b = 30102001
Open fichier$ For Random As #1
Put #1, 1, a$ ' Emplacement 1 dans le fichier
Put #1, 2, b ' Emplacement 2 dans le fichier
Close
'Tu peut ajouter autant d'emplacements que tu veut.