Замена расширения файла (с переименованием)

Private Sub ChangeFileExt_Demo()
Dim sFilePath$, sFilePathNewExt$
' ...
    'sFilePath = CurrentProject.path & "\FileNameToChangeExtension.txt"
    sFilePath = "d:\Temp\FileNameToChangeExtension.txt"

' ...

    If Dir(sFilePath) = "" Then
        MsgBox "Файл :" & vbCrLf & sFilePath & vbCrLf & "не найден!", vbExclamation, "Stop!"
        Exit Sub
    End If

' Замена расширения файла на "csv" с переименованием
    sFilePathNewExt = Mid(sFilePath, 1, InStrRev(sFilePath, ".")) & "csv"
    Name sFilePath As sFilePathNewExt 'Переименование
    'Debug.Print sFilePathNewExt

End Sub

Вариант с FileSystemObject

Private Sub ChangeFileExt_Demo02()
Dim sFilePath$, sNewFileNameExt$
Dim objFSO As Object
' ...
    'sFilePath = CurrentProject.path & "\FileNameToChangeExtension.txt"
    sFilePath = "d:\Temp\FileNameToChangeExtension.txt"
    
    If Dir(sFilePath) = "" Then
        MsgBox "Файл :" & vbCrLf & sFilePath & vbCrLf & "не найден!", vbExclamation, "Stop!"
        Exit Sub
    End If
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
' Замена расширения файла на "csv" с переименованием
    sNewFileNameExt = objFSO.GetBaseName(sFilePath) & ".csv" ' Новое имя файла без пути
' Rename  ...
    objFSO.GetFile(sFilePath).Name = sNewFileNameExt
    Set objFSO = Nothing
    
End Sub