Punkt statt komma bei zahlen und slash statt punkt bei datum

hallo

habe im mom folgendes script:

Sub speichern_als()
Dim I_Sheets As Integer
Dim F_Name As String
Dim F_Path As String
F_Path = Application.InputBox("Pfad angeben")
For I_Sheets = 1 To Sheets.Count
F_Name = F_Path + Sheets(I_Sheets).Name + ".csv"
Sheets(I_Sheets).SaveAs Filename:=F_Name, FileFormat:=xlCSVWindows
Next I_Sheets
End Sub

dieses sieht mir meine 4 tabellen aus der arbeitmappe jeweils in eine extra CSV datei am angegeben platz .... schön un gut soweit nun habe ich aber folgendes problem:


1/1/2011

8.661928229
8.661928229


so sieht es aus wenn ich csv datei öffne soll aber so aussehen:


01.01.2011

8,661928229
8,661928229

also das datum mit nullen und punkten un die zahl mit komma´s getrennt!


kann mir da einer helfen ??

Danke im voraus

mfG

MTB

Sheets(I_Sheets).SaveAs Filename:=F_Name, FileFormat:=xlCSVWindows, Local:=True

Sub Speichern_als_mit_Blattauswahl()
aSheets = Array("Tabelle1", "Tabelle3", "Tabelle8") 'alle gewünschten Blätter mit Namen angeben  
F_Path = Application.InputBox("Pfad angeben")  
For i = 0 To UBound(aSheets)
    F_Name = F_Path & aSheets(i) & ".csv"  
    Sheets(aSheets(i)).SaveAs Filename:=F_Name, FileFormat:=xlCSVWindows, Local:=True
Next
End Sub