VBA Макросы. Как извлечь расширение из полного имени файла?

[Посетитель]

Как извлечь расширение из полного имени файла?

[Администратор]

Sub Макрос()
   
    Dim FN_Файл As String, Расш As String
   
    FN_Файл = "C:\Users\User\Desktop\Папка\Имя файла.xlsb"
    Расш = Mid(FN_Файл, InStrRev(FN_Файл, ".") + 1)
   
End Sub

[Посетитель]

спасибо