Create Tab delimited file with no quotes in Currency fields.

[AP]

Hello! I'm trying to create a tab delimited file; but with no "double
qualifiers" using SaveAs. The field must be in a currency format, so I can't
change the format. If the total have commas it will create "" automatically.
This is what I have so far; I know there are other options to create this
file; but how without "quotes"??

Here's what i have so far:

Private Sub CmdTest_Click()

Columns("A:H").Select
ChDir "C:\test"
ActiveWorkbook.SaveAs Filename:= _
"C:\test\test_" & Format(date, "yyyymmdd") & ".txt" _
, FileFormat:=xlText, CreateBackup:=False

End Sub

I will appriciate any help!