Private Sub Command1_Click()
LS = Chr(13) & Chr(10)
Open "CHARGER UN FICHIER.txt" For Input As #1
For cpt1 = 1 To 50
If EOF(1) Then
GoTo Fin:
Else
Input #1, Ligne
Donnee = Donnee & LS & Ligne
End If
Next
Fin:
Texte1 = Donnee
Close
End Sub