Sub Mi_Macro()
Dim CD as String
...
Open "C:\LOGS\Mi_Macro.log" For Output As 1:
...
CD=chr$(4) ' -- Comillas Dobles
...
Print #1, "--- pagina " & Pagina & " línea " & Linea & " modificado " & CD & Antes & CD & " por " & CD & Despues & CD
....
Close #1
End Sub