Sub CleanTextFile()
Dim Txt As String
Dim Filename As String
Dim NewFilename As String
Filename = "C:\PATHTOFILE\Test.txt"
Txt = ReadFile(Filename)
Txt = Replace(Replace(Txt, Chr(vbNull), ""), Chr(26), "")
NewFilename = Replace(Filename, ".txt", "_FIXED.txt")
CreateFile NewFilename, Txt
End Sub
Sub CreateFile(ByVal Filename As String, ByVal Contents As String)
Dim FileHandled As Long
FileHandled = FreeFile
Open Filename For Output As #FileHandled
Print #FileHandled, Contents
Close #FileHandled
End Sub
Function ReadFile(ByVal Filename As String) As String
Dim EOFile As Long
Dim FileHandled As Long
Dim Contents As String
FileHandled = FreeFile
Open Filename For Binary As #FileHandled
EOFile = LOF(FileHandled)
Contents = Space$(EOFile)
Get #FileHandled, , Contents
Close #FileHandled
ReadFile = Contents
End Function