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

Private Sub Txt1_Change()
 CmdEcrire.Enabled = True
End Sub