csv in xlsx funktionier einfach nicht

Private Sub CommandButton2_Click()
Dim CSVfolder As String, _
XlsFolder As String, _
fname As String, _
wBook As Workbook
CSVfolder = "C:\Temp\Dep\"
XlsFolder = "C:\Temp\Dep\xlsx"
MsgBox (CSVfolder)
fname = Dir(CSVfolder & "*.csv")
Do While fname  ""
Set wBook = Workbooks.Open(CSVfolder & fname, Format:=6, Delimiter:=",")
wBook.SaveAs XlsFolder & Replace(fname, ".csv", ""), xlOpenXMLWorkbook
wBook.Close False
fname = Dir
Loop
End Sub