EXCEL VBA ファイル名から拡張子を取得する

'
'　ファイル名から拡張子を取得する
'
'
' 引数：ファイル名
' 戻り値；拡張子
'          小文字で返す
'          拡張子が無い場合はLen(0)の文字列を返す
'          https://pgbigoroku.hatenablog.com/entry/2022/12/03/011813
'2022/12/1
Private Function nstrGetExtension(ByVal pstrFilenName As String) As String
    Dim strFilename As String
    Dim intInstrRev As Integer
    
    strFilename = pstrFilenName
    intInstrRev = InStrRev(strFilename, ".")
    If intInstrRev > 0 Then
        nstrGetExtension = LCase(Mid(strFilename, intInstrRev + 1))
    Else
        nstrGetExtension = ""
    End If
End Function