CSV mit Komma statt Semikolon

Public Sub CSV_Artikel_Click() 'Optionbutton
'On Error GoTo Fehler
MsgBox "Noch im Test"
Call Var_Bel
If CSVError Then Exit Sub ' Pfad fehlt
With TB2
LR = .Cells(.Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte
If LR > 1 Then
'*** Namen zusammenbauen
CSVName = "Import_Artikel_" & Format(Now, "YYYYMMDD_hh_mm_ss") & Ext
'*** Blatt als eigene xlsx erstellen
.Copy
Set WB2 = ActiveWorkbook
'*** als csv abspeichern und beenden
Application.DisplayAlerts = False
WB2.SaveAs Filename:= _
Pfad & CSVName, FileFormat:=xlCSVUTF8, CreateBackup:=False
Application.Wait (Now + TimeValue("0:00:03")) 'Warten
WB2.Close , False
'***Daten löschen
JaNein = MsgBox("CSV erzeugt!" & vbLf & vbLf & _
"Import-Daten löschen", vbQuestion + vbYesNo, "Fertig")
If JaNein = vbYes Then
'*** Ab zeile 2 löschen
.Rows(2).Resize(LR - 1).ClearContents
'*** Mainnumber resetten
TB1.Range("Eingabe_mainnumber").ClearContents
End If
Else
MsgBox "Keine Daten für CSV vorhanden"
End If
End With
'*** Fehlerbehandlung
Err.Clear
Fehler:
Application.EnableEvents = True
Application.DisplayAlerts = True
If Err.Number  0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
End Sub