Probleme mit CSV to XLS Konvertierer & Excel 2010

Sub Convert_CSV_to_XLS()
Dim i As Long
Dim dateiForm As String
'Mit Backslash am Ende
verz = "C:\Test\" 'vorher: =GetDirectory
'Dateiform
dateiForm = "csv"
On Error GoTo FEHLER
ChDrive Left(verz, 2)
ChDir verz
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = False
.FileType = msoFileTypeAllFiles
.Execute
For i = 1 To .FoundFiles.Count
Application.StatusBar = "Datei " & i & " von " & .FoundFiles.Count & " wird  _
bearbeitet"
If Right(.FoundFiles(i), 3) = dateiForm Then
Application.ScreenUpdating = False
Debug.Print .FoundFiles(i)
Workbooks.Open .FoundFiles(i), Local:=True
ActiveWorkbook.SaveAs Left(.FoundFiles(i), Len(.FoundFiles(i)) - 3) & "xls",  _
xlWorkbookNormal
ActiveWorkbook.Close False
Application.ScreenUpdating = True
End If
Next i
End With
ErrorExit:
Application.ScreenUpdating = True
Application.StatusBar = False
Exit Sub
FEHLER:
MsgBox Err.Number & "; " & Err.Description
Resume ErrorExit
End Sub