VBA 指定したファイルパスより拡張子を取得する

■指定したファイルパスより拡張子を取得する
呼び出し元プロシージャ

Sub テスト()
    Dim strPath As String
    Dim strExtension As String    
    strPath = "C:\デスクトップ\テスト.xlsm"    
    strExtension = getExtension(strPath)    
    MsgBox strExtension   
End Sub

ファンクションプロシージャ

Function getExtension(strPath As String) As String
'-----------------------------------------------
'機能：指定したファイルパスより拡張子を取得する
'引数1：拡張子を取得したい対象のファイルパス
'-----------------------------------------------
Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")    
    getExtension = FSO.getExtensionName(strPath)
End Function