Mettre à jour une zone dans un fichier texte

merci bcp le problème est régle, t'es un crack
finalement je lis le fichier Montant.txt et j'écris dans un autre fichier Montant1.txt

dans montant.txt j'avais
VS01  VS02  VS03
4           E       1235,12
15         D      2580,56

je retrouve dans montant1.txt
VS01   VS02                                                   VS03
4           E                           mille deux cents trente cinq  Euros et douze  Centimes
15         D                          deux mille  cinq cents quatre-vingt   Euros et cinquante six  Centimes

comme suit :

Sub Conversion()
 
Dim textline
Dim Zone As String
Dim sValueLettre As String

Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8

Dim oFSO
    Set oFSO = CreateObject("Scripting.FileSystemObject")
Dim oTxtFile
    Set oTxtFile = oFSO.OpenTextFile("C:\temp\Montant1.txt", ForWriting, True)
   
FF = FreeFile

   Open "C:\temp\Montant.txt" For Input As #FF
   
    Do While Not EOF(FF)
             Line Input #FF, textline
            
            tabul = Split(textline, vbTab)
          
       MyPos = InStr(1, tabul(2), "VS")
       
       
       If MyPos <> 1 Then
        txt_Nb_Text = tabul(2)

 ' traitement chiffres en lettres
       Call ChiffresLettres_F((CDbl(txt_Nb_Text)), sValueLettre)
       
      tabul(2) = sValueLettre
      End If
     
        Zone = tabul(0) & vbTab & tabul(1) & vbTab & tabul(2)
        oTxtFile.WriteLine Zone
 Loop

Close #FF

  
End Sub