Prova con questo:
codice:
FileNum1 = FreeFile
Open Percorso1 For Input As #FileNum1
FileNum2 = FreeFile
Open Percorso2 For Input As #FileNum2

A$ = ""

Do Until EOF(FileNum1)
    Line Input #FileNum1, A$
    Contenuto = A$

' Codice per modificare "Contenuto"

    Print #FileNum2, A$

Loop
Close

Kill Percorso1
Name Percorso2 As Percorso1
P.S. cerca di eliminare la sintassi con $ % ecc. che è di difficile lettura e del tutto inutile in VB6