csv Zahlenformat nicht ändern

Sub B1_Create_CVS_C_Drive_Downloads()
Dim Bereich As Object   ' Bereich der bearbeitet werden Soll
Dim Zeile As Object     ' Bereich der bearbeitet werden Soll
Dim Zelle As Object     ' Bereich der bearbeitet werden Soll
Dim strTemp As String   ' temporärer Speicher für den ExportString
Dim sSW_Name_Tabelle As String
Dim sSW_Trennzeichen As String
Dim sSW_SpeicherPfad As String
Dim sRM_Datum_Zeit As String
Dim sSW_DateiName As String
Dim strTrennzeichen As String
Dim entity As String
Dim period As String
sSW_Name_Tabelle = "CSV_Export"
sSW_Trennzeichen = ";"
On Error GoTo Fehlermeldung
' Speichern CompanyName
entity = tab_general_journals.Range("c1").Value
' Speichern Period
period = tab_general_journals.Range("c5").Value
' Speichern vom aktuellen Dateipfad
sSW_SpeicherPfad = Environ("UserProfile") & "\Downloads\"
' Speichern vom Zeitstempel, Teil vom Dateinamen der CSV-Export-Datei
sRM_Datum_Zeit = Format(Now, "YYYY-MM-DD - HH-MM-SS")
' Zusammensetzen vom Dateinamen
sSW_DateiName = sSW_SpeicherPfad & entity & "_" & period & "_" & sSW_Name_Tabelle & " - " & sRM_Datum_Zeit & ".csv"
' Tabelle "CSV_Export" selektieren - ActiveSheet
tab_upload.Select
' Exportbereich setzen
Set Bereich = tab_upload.UsedRange
' Daten aus der Quelldatei auslesen und in die externe Datei schreiben
Open sSW_DateiName For Output As #1
For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
strTemp = strTemp & CStr(Zelle.Text) & sSW_Trennzeichen
Next
If Right(strTemp, 1) = strTrennzeichen Then strTemp = Left(strTemp, Len(strTemp) - 1)
Print #1, strTemp
strTemp = ""
Next
' externe Datei (CSV) schliessen und Arbeitsbereich löschen
Close #1
Set Bereich = Nothing
GoTo Fertigmeldung
Fehlermeldung:
'Fehlermeldung anzeigen
If Err Then MsgBox "File not saved"
GoTo Ende
Fertigmeldung:
'Fertigstellungsmeldung anzeigen
MsgBox "CSV saved. File saved in " & sSW_DateiName
Ende:
tab_general_journals.Activate
tab_general_journals.Range("c1").Select
End Sub