How do I remove excess quote marks added during exporting workbook as a text document

[MPW]

I am looping through a folder of .usx files to modify the content. I thought the easiest would be to load it into a workbook, modify it and then create a new .usx file from the content.
Here is the method of export:

wb.SaveAs Filename:=sbf & "\" & oFile.Name, FileFormat:=xlCurrentPlatformText

This all works well, however there are additional quote marks added in the process. Hopefully my picture is worth a thousand words... Now I know I can replace these errors in word or notepad, but since I am working through many files it would be nice if it could be added to the automated process. If you need more info let me know. Thanks

 

[EXCEL MAX]

Hello MPW,
I have no too much experience, but I would be glad to help you. Maybe to give you some idea.
Try to use FileSystemObject to write text file instead VBA SaveAs method.

Option Explicit

Dim fs, a
Sub SaveWithFSO()

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile("C:\Users\testfile.txt", True)
    a.WriteLine (Range("A1"))
    a.Close

End Sub

 

[MPW]

Thank you Mr. *EXCEL MAX. If you are a Mr.
I was able to adapt your code to my project and it worked nicely. Thank you very much.

Sorry it took me so long to answer, I was eating turkey. Not the country, just the bird. Thanks again.

 

[EXCEL MAX]

"Bon appetit".
I'm very glad for your reaction and that you find my idea as solution.