Réponse acceptée !
Bonsoir,
Place sur ta Form un CommandButton (propriété Name: cmdEnregistrer) et un TextBox (propriété Multiligne à True)

Private Sub cmdEnregistrer_Click()
'Création du fichier et enregistrement des données écrites dans le TextBox.
Open "C:\TonFichier" For Output As #1
    Print #1, Text1.Text
    Close #1
End Sub

Private Sub Form_Load()
Dim texte, tout, crlf
On Error Resume Next
crlf = Chr$(13) + Chr$(10)
'Ouverture et lecture du fichier
Open "C:\TonFichier" For Input As #1
 Line Input #1, texte
 tout = texte
 If Len(tout) <> 0 Then
 While Not EOF(1)
 Line Input #1, texte
 tout = tout + crlf + texte
 Wend
 End If
Text1.Text = tout
Close #1
End Sub

jpleroisse

Si une réponse vous convient, cliquez Réponse Acceptée.