vb如何从全路径中获取文件名

把以下代码复制到代码窗口, 要获取文件名时, 用这样的语句:
msgbox GetPathFromFileName("C:\windows\text.txt")

代码如下:
'****************************************************************************************************
'函数: GetPathFromFileName
'作用: 从完整路径获取 文件名
'输入: 完整路径, 目录分隔符
'返回: 文件名(带扩展名)
Public Function GetPathFromFileName(ByVal strFullPath As String, Optional ByVal strSplitor As String = "\") As String
GetPathFromFileName = Left$(strFullPath, InStrRev(strFullPath, strSplitor, , vbTextCompare))
End Function