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

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

' ...

' Замена расширения файла на "csv" с переименованием
    If Dir(sFilePath) = "" Then
        MsgBox "Файл :" & vbCrLf & sFilePath & vbCrLf & "не найден!", vbExclamation, "Stop!"
        Exit Sub
    End If
    sFilePathNewExt = Mid(sFilePath, 1, InStrRev(sFilePath, ".")) & "csv"
    Name sFilePath As sFilePathNewExt 'Переименование
    'Debug.Print sFilePathNewExt

End Sub