Excel VBA/Macro removing unwanted commas from .txt file - vba

Question

I've written a macro/piece of code in excel vba to send the current worksheet to a specific email in .txt format but when I receive the email there are several unneeded commas listed in the file I'm just trying to possibly find a piece of code that will remove these extra commas when the file is sent over in the email. I currently have another macro created which opens and reads the file and removes the unwanted commas but i am having to save the email attachment first whereas I'd like to just receive the clean .txt file directly to my email.
The current .txt file I am receiving looks like;
S99,2602,7/12/2017,
10405,PUSH NUT PLAIN 1/4,2.000,EACH
WVC424,CORD 2.2MM E/S CHESTNUT,3.800,MTR
,,,
whereas I need it to look like;
S99,2602,7/12/2017
10405,PUSH NUT PLAIN 1/4,2.000,EACH
WVC424,CORD 2.2MM E/S CHESTNUT,3.800,MTR
For It to be read into our system.
Sub EmailAsCSV()
'
' EmailAsCSV Macro
'
Dim csvFiles(1 To 3) As String, i As Integer
Dim wsName As Variant
Dim OutApp As Object, OutMail As Object
i = 0
For Each wsName In Array("Sheet1") 'sheet names to be emailed - CHANGE THE SHEET NAMES
i = i + 1
csvFiles(i) = ThisWorkbook.Path & "\" & wsName & ".txt"
ThisWorkbook.Worksheets(wsName).Copy
ActiveWorkbook.SaveAs csvFiles(i), FileFormat:=xlCSV
ActiveWorkbook.Close False
Next
'Email the .csv files
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = ThisWorkbook.Worksheets("Sheet2").Range("E1").Value 'cell containing email address - CHANGE THE SHEET NAME AND CELL
.CC = ""
.BCC = ""
.Subject = "Order"
.Body = "This email contains 1 file attachment with an order."
.Attachments.Add csvFiles(1)
.Send
End With
Set OutMail = Nothing
Set OutApp = Nothing
'Delete the .csv files
Kill csvFiles(1)
'
End Sub
Sub test()
Dim fn As String, txt As String
fn = Application.GetOpenFilename("TextFiles,*.txt")
If fn = "" Then Exit Sub
txt = CreateObject("Scripting.FileSystemObject").OpenTextFile(fn).ReadAll
With CreateObject("VBScript.RegExp")
.Global = True: .MultiLine = True
.Pattern = ",+$"
Open Replace(fn, ".txt", "_Clean.txt") For Output As #1
Print #1, .Replace(txt, "")
Close #1
End With
End Sub
The code I have currently got is listed above.

Answer 1

Try saving it in text format instead?
FileFormat:=xlText

Answer 2

You can copy just the used range (not tested):
ThisWorkbook.Worksheets(wsName).UsedRange.CurrentRegion.Copy
With Workbooks.Add
.Sheets(1).Paste
.SaveAs csvFiles(i), FileFormat:=xlCSV
.Close False
End With
or paste the values without formatting (also not tested):
ThisWorkbook.Worksheets(wsName).UsedRange.Copy
With Workbooks.Add
ActiveCell.PasteSpecial xlPasteValues
.SaveAs csvFiles(i), FileFormat:=xlCSV
.Close False
End With