Option Explicit
Dim LS$

Private Sub CmdEcrire_Click()
Dim Donnees$
Donnees = Txt1.Text
'Enregistrement
Open App.Path & "\" & "Lire Ecrire.txt" For Output As FreeFile 'Ouvre le fichier.
Print #1, Donnees 'Ecrit la chaîne dans le fichier.
Close 'Ferme tous les fichiers.
CmdEcrire.Enabled = False
End Sub

Private Sub CmdLire_Click()
Dim Cpt1%, Ligne$, Donnee$
Open App.Path & "\" & "Lire Ecrire.txt" For Input As #1
For Cpt1 = 1 To 50 'Nombre de ligne que l'on veut lire
If EOF(1) Then
GoTo Fin:
Else
Input #1, Ligne
If Donnee = "" Then
Donnee = Ligne
Else
Donnee = Donnee & LS & Ligne
End If
End If
Next
Fin:
Txt1 = Donnee
Close
End Sub

Private Sub Form_Load()
LS = Chr(13) & Chr(10)
End Sub