EXCEL VBA ファイル名から拡張子を抜いた文字を取得する

Sub a()
    Debug.Print nstrGetFileName("c:\AA.pdf")
End Sub

'　ファイル名から拡張子を抜いた文字を取得する
'
'
' 引数：ファイル名
' 戻り値；ファイル名
'          フォルダ名は削除
'          拡張子は削除
' https://pgbigoroku.hatenablog.com/entry/2022/12/03/220510
'2022/12/3
'関連
' ファイル名から拡張子を取得する
'   https://pgbigoroku.hatenablog.com/entry/2022/12/03/011813
Private Function nstrGetFileName(ByVal pstrFilenName As String) As String
    Dim strFileName As String
    Dim intInstrRev As Integer
    Dim intInstrRevExtension As Integer
    strFileName = pstrFilenName
    intInstrRev = InStrRev(strFileName, "\")
    If intInstrRev > 0 Then
        strFileName = Mid(strFileName, intInstrRev + 1)
    Else
        strFileName = strFileName
    End If
    intInstrRevExtension = InStrRev(strFileName, ".")
    If intInstrRevExtension > 0 Then
        strFileName = Left(strFileName, intInstrRevExtension - 1)
    Else
        strFileName = strFileName
    End If
    nstrGetFileName = strFileName
End Function