Schneller Export als CSV mit ";"

ich habe das Problem, in Excel per VBA als CSV exportieren zu müssen. Jedoch als Trennzeichen ein ";" benötige. Nun gibts hier ja schon einige Lösungen, die leider alle viel zu langsam sind. Gibts evtl. ne Methode die performanter ist wie z.B. die untige?

Vielen Dank und Gruß
Andreas

Sub AlsTextSpeichern()
Dim TB As Worksheet, Dateinummer%
Dim z%, s%, exportfile$, TMP$
exportfile = "C:\test.csv"
Dateinummer = FreeFile
Set TB = ThisWorkbook.Worksheets(1)

Open exportfile For Output As #Dateinummer

For z = 1 To TB.UsedRange.Rows.Count
If Cells(z, 2).Value = Text Then SL = 10 Else SL = 6
For s = 1 To TB.UsedRange.Columns.Count
TMP = TMP & CStr(TB.Cells(z, s).Text) & ";"
Next s
TMP = Left(TMP, Len(TMP) - 1)
Print #Dateinummer, TMP
TMP = ""
Next z
Close #Dateinummer
End Sub