Option Compare Database
Option Explicit

Function LeeFicheroGraba()
On Error GoTo Err_Todo_Error

Dim Fs, ObjetoSalida, VariableBuffer, ObjetoEntrada
Set Fs = CreateObject("Scripting.FileSystemObject")
Set ObjetoSalida = Fs.OpenTextFile(CurrentProject.Path & "\borra.txt", 1, 0)
Set ObjetoEntrada = Fs.CreateTextFile(CurrentProject.Path & "\Clonborra.txt", True)
Do While 0 = 0
 VariableBuffer = Replace(ObjetoSalida.ReadLine, ",", " ")
 ObjetoEntrada.WriteLine VariableBuffer
Loop
ObjetoSalida.Close
ObjetoEntrada.Close
Exit_Todo_Error:
    Exit Function

Err_Todo_Error:
    If Err.Number = 62 Then
     'Hemos leido todo el fichero origen, cerramos y salimos
     ObjetoSalida.Close
     ObjetoEntrada.Close
     Resume Exit_Todo_Error
    Else
     'otros errores
     MsgBox "Aviso Nš: " & Err.Number & " -> " & Err.Description, vbCritical, "Aviso de posible error"
     Resume Exit_Todo_Error
    End If
End Function