VBA String Manipulations - Replace LineFeeds With Carriage Returns In Flat Text Files

Sub ReplaceLineFeedsWithCarriageReturnsInFlatTextFiles()

'_______________________________________________
'
' This macro for either Word or Excel replaces the linefeeds of a
' flat text file by carriage returns and line feeds recognized by Word
'_______________________________________________
'
Const ForReading = 1, ForWriting = 2, ForAppending = 8

Set fso = CreateObject("Scripting.FileSystemObject")
Set Readfile = fso.OpenTextFile("C:\myDirtyFileWithLineFeeds.txt", ForReading)
thisTxt = Readfile.ReadAll
Readfile.Close
 
thisTxt = Replace(thisTxt, vbCr, vbCrLf)
thisTxt = Replace(thisTxt, vbLf, vbCrLf)

Set WriteFile = fso.CreateTextFile("C:\myCleanFileWithCarriageReturnsAndLineFeeds.txt", ForWriting, True)
WriteFile.Write (thisTxt)
WriteFile.Close
MsgBox "Job done"

End Sub