ASCII Datei aus Excel schreiben

Sub Start()
Dim sfile, spath As String
Dim ID As Integer
spath = "C:\"
sfile = Format(Now, "yyyymmddhhmmss") & "_Batch_PO.txt"
Worksheets("Batch_PO").Activate
ActiveWorkbook.SaveAs spath & sfile, FileFormat:=xlUnicodeText, CreateBackup:=False
ActiveSheet.Name = "Batch_PO"
Worksheets("Allgemein").Activate
End Sub

Nun zeigen sich zwei Probleme:
1. Einige Zellen beinhalten ein Komma. Diese Zeilen werden in der Text Datei mit " am Anfang und am Ende versehen. Das will ich nicht, benötige aber unbedingt das Komma. Komischerweise passiert dies nicht, wenn ich die Textdatei von Hand über "Speichern unter" erzeuge.
2. Zwei hintereinanderliegende Zellen werden in der Textdatei durch einen Tab-Abstand getrennt, sollten aber nahtlos aneinanderhängen.
Ausserdem würde ich gerne nur eine Kopie der Datei speichern. Mit dem Makro wird jedoch stets die Datei selber umbenannt.
Hat jemand eine Idee?
Gruss und Danke!
Marc