[VB]Ajouter un caractère sur toutes les lignes d'un fichier text

Option Explicit
'allez dans Outils- Options et cocher reference Microsoft Scripting Runtime
Private Sub CommandButton1_Click()
lire
CommandButton2.Enabled = True
End Sub
Private Sub CommandButton2_Click()
ecrire
End Sub
Sub ecrire()
Dim oFSO As Scripting.FileSystemObject
Dim oFl As Scripting.File
Dim oTxt As Scripting.TextStream
Dim i As Integer
'Instanciation du FSO
Set oFSO = New Scripting.FileSystemObject
Set oFl = oFSO.GetFile("C:\chemin\fichier.txt") 'chemin fichier texte
Set oTxt = oFl.OpenAsTextStream(ForWriting)
With oTxt
    For i = 0 To ListBox1.ListCount - 1
        .WriteLine ListBox1.List(i) & "b08029b47a99f94e7a36224039cb2830|"
    Next i
End With
End Sub
Sub lire()
Dim oFSO As Scripting.FileSystemObject
Dim oFl As Scripting.File
Dim oTxt As Scripting.TextStream
'Instanciation du FSO
Set oFSO = New Scripting.FileSystemObject
Set oFl = oFSO.GetFile("C:\chemin\fichier.txt") 'chemin fichier texte
Set oTxt = oFl.OpenAsTextStream(ForReading)
With oTxt
    While Not .AtEndOfStream
       ListBox1.AddItem (.ReadLine)
    Wend
End With
End Sub
Private Sub UserForm_Initialize()
CommandButton1.Caption = "Lire"
CommandButton2.Caption = "Ecrire"
CommandButton2.Enabled = False
End Sub

Option Explicit

Const chemin = "D:\"
Const nomFI = "trucIn.txt"
Const nomFO = "trucOut.txt"

Private Sub btOK_Click()
Dim ficIn, ficOut, buffer As String
  'nom fichier
  ficIn = chemin & nomFI
  ficOut = chemin & nomFO
  Open ficIn For Input As #1
  Open ficOut For Output As #2
  Do While Not EOF(1)
    'lecture enregistremnt
    Line Input #1, buffer
    buffer = buffer & "|"
    Print #2, buffer
  Loop
  Close #1
  Close #2
End Sub