Apri un'altro file di tipo Append.
facendo cosi
'Questa funzione permette di copiare gli stessi caratteri che ha il percorsofile.

dim record as string
Open percorsodelfile For Input As #1
While Not EOF(1)
Line Input #1, record 'legge riga x riga
if trovato carattere da sostituire
record=cosa sostituire
End If
open percorsofile1 for Append as # 2
print #2,record
close # 2
Wend
Close #1