如何从父路径中提取带扩展名的文件名？MS Access VBA

Function GetFileNameFromPath(ByVal filePath As String) As String
    Dim fileName As String
    fileName = Right(filePath, Len(filePath) - InStrRev(filePath, "\"))
    GetFileNameFromPath = fileName
End Function

Sub Test()
    Dim filePath As String
    Dim fileName As String
    
    filePath = "C:\Documents\example.txt"
    fileName = GetFileNameFromPath(filePath)
    
    MsgBox fileName
End Sub