how to replace form feeds in a text file

Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objOpen = objFSO.OpenTextFile("c:\bad_text.txt", ForReading)

FileContent = objOpen.ReadAll
arrFileName = Split(FileContent, vbCrLf)

outFile="c:\good_text.txt"
Set objFile = objFSO.CreateTextFile(outFile, True)
Const intFrom = 1
Const intTo = -1
Const binaryCompare = 0
objFile.Write Replace(Join(arrFileName, vbCrLf), Chr(12), "", intFrom, intTo, binaryCompare)

objOpen.Close
Set objOpen = Nothing
Set objFSO = Nothing