Ich möchte eine Datei die ich per msg Box auswählen kann zu csv umwandeln kann mir hier wer helfen?

Würde mich auch nicht stören wenn der code komplett überarbeitet wird, bräuchte drigend eine Lösung bitte danke :)

Sub XLSzuCSV()
        
        Dim fDir As String
        Dim wB As Workbook
        Dim wS As Worksheet
        Dim sMsg As String
        Dim sPath As String
        
        sMsg = "Wählen Sie bitte einen Ordner aus:"
        sPath = getdirectory(sMsg)
 
        Dim c As String
        If sPath = "" Then
        c = MsgBox("Sie haben kein Verzeichnis ausgewählt, das Programm wird beendet!", vbOKCancel)
        If c = vbCancel Then
      GoTo sprungmarke
    Else
       MsgBox "Programm wird beendet!"
       Application.Quit 'Excel wird geschlossen
    End
    End If
 
End
        fDir = Dir(fPath)
        Do While (fDir <> "")
        If Right(fDir, 4) = ".xls" Or Right(fDir, 5) = ".xlsm" Then
        On Error Resume Next
        Set wB = Workbooks.Open(fPath & fDir)
        For Each wS In wB.Sheets
        wS.SaveAs sPath & wS.Name, xlCSV, _
        CreateBackup:=False, local:=True
        Next wS
        wB.Close False
        Set wB = Nothing
        End If
        fDir = Dir
        On Error GoTo 0
        Loop
        
End Sub