[VB6] Leggere e scrivere linea per linea (file .txt)

[AleX ZeTa]

FileNum% = FreeFile
A = ""
dim str as String

Open Percorso For Input As #FileNum
Do Until EOF(FileNum)
    Line Input #FileNum, A
    Contenuto = A
    ' Codice per modificare "Contenuto"
    str = str & Contenuto & vbCrLf
Loop
Close #FileNum

Open Percorso For Output as #1
Print #1, str
Close #1

(nn comprendo quei "%"...)