How do remove or replace a TM symbol in an XML File

Sub ChangeTextFile() 
     ' Manipulating a text file with VBA
     '  Loops through text file and creates revised one
     ' This code requires a  reference (Tools > References) to Microsoft Scripting Runtime
     
    Dim FSO As FileSystemObject 
    Dim FSOFile As TextStream, FSOFileRevised As TextStream 
    Dim FilePath As String, FilePathRevised As String 
     
    FilePath = "c:\test.xml" ' create a test.xml file or change this
     
     ' adds "_Revised" to your file name
    FilePathRevised = Left(FilePath, Len(FilePath) - 4) & "_Revised" & Right(FilePath, 4) 
     
    Set FSO = New FileSystemObject 
    If FSO.FileExists(FilePath) Then 
         ' opens the file for reading
        Set FSOFile = FSO.OpenTextFile(FilePath, 1, False) 
         ' opens "revised" file in write mode
        Set FSOFileRevised = FSO.OpenTextFile(FilePathRevised, 2, True) 
        Do While Not FSOFile.AtEndOfStream 
            FSOFileRevised.WriteLine (Replace(FSOFile.ReadLine, Chr(153), "TM"))
        Loop 
        FSOFile.Close 
        FSOFileRevised.Close 
    Else 
         MsgBox (FilePath & " does not exist") 
    End If 
End Sub 

Select allOpen in new window

Dim iSource As Integer, iDest As Integer, sText As String
''Close any open text files
Close
''Get the number of the next free text file
iSource = FreeFile
''Write the entire file to sText
Open "C:\input.xml" For Input As #nSourceFile
sText = Input$(LOF(1), 1)
Close
'set and open file for output
iDest = FreeFile
Open "C:\input2.xml" For Output As iDest
'write project info and then a blank line. Note the comma is required
Print #fnum, Replace(sText, Chr(153), "TM")
Close #fnum
End Sub

Select allOpen in new window