CSV mit Komma

Sub CSV_mit_Komma()
'
Dim TB As Worksheet
Dim TMP$, ExePath
Dim Hex1 As String
Dim z%, s%
ExePath = Application.GetSaveAsFilename
Set TB = ActiveSheet
Open ExePath For Output As #1
Hex1 = Chr(34)
For z = 1 To TB.UsedRange.Rows.Count
For s = 1 To TB.UsedRange.Columns.Count
TMP = TMP & Hex1 & CStr(TB.Cells(z, s).Text) & Hex1 & ","
Next s
Print #1, TMP
TMP = ""
Next z
Close 1
End Sub

Leider erzeugt es nach dem letzten Feld eines jeden Datensatzes auch noch mal ein Komma. Wie kann ich dieses Komma am Ende das Datensatzes unterbinden?