Komma-Darstellung beim Abspeichern als TXT

Sub speichern_aller_tabellen_KST()
Dim ws As Worksheet
Dim name As String
For Each ws In Application.ActiveWorkbook.Worksheets
ws.Activate
'ws.Columns("C:C").NumberFormat = "0.00"
'### Upload-Pfad wo TXT Datei gespeichert werden soll ist anzupassen
'### Beginn der Dateibezeichnung ist anzupassen
ChDir "S:\TEMP\"
'### Eingabe des Namens incl vollst. Pfad
name = "S:\TEMP\KOSTEN_KST_" & ActiveSheet.Range("B4").Value & ".txt"
ActiveWorkbook.SaveAs Filename:=name, FileFormat:=xlTextMSDOS, CreateBackup:=False
Next
End Sub

Das komma wird in den allen sheets egal ob die zeile
'ws.Columns("C:C").NumberFormat = "0.00"
aktiv ist oder nicht als "." dargestellt im letzten sheet aber immer als ",".
Da die Dateien zum Upload bereit gestellt werden sollen ist das nicht ganz so schön. Wie kann ich eine einheitliche Darstellung erreichen? ob nun Punkt oder komma ist mir eigentlich egal.
Micha