modifier un fichier .txt

slt, j'aimerais savoir comment je peus faire pour modifier des lignes dans un fichier .txt
mon fichier ressemble a ceci :
"X1","X2","X3","X4"
"U1",U2"","U3","U4"
......

tu peux faire des tas de choses





    Dim Buffer  As String * 21
    Dim Table() As String
    Dim i       As Integer
   
    Open tonfichier.txt For Random As #1 Len = 21
       'Lecture de la deuxième Ligne
        Get #1, 2, Buffer
 
       'découpage par éléments
        Table = Split(Buffer, ",")
        For i = 0 To UBound(Table)
            MsgBox Table(i)
            Next
        'modif d'un élément
        Table(3) = """U4"""
        Buffer = Join(Table, ",")
        MsgBox Buffer
        'réécriture
        Put #1, 2, Buffer
       
       'ou modif en bloc
        Buffer = Replace(Buffer, "U", "Z")
        Put #1, 2, Buffer
       
    Close #1


Daniel