新建From1（窗体），新建Command1（按钮CommandButton），代码：

Private Sub Command1_Click()
    Dim strAll$, strArr$(), strPath$, strFN$

    strAll = "C:\Windows\System\system.dll"
    strArr = Split(strAll, "\")
    strFN = strArr(UBound(strArr))
    
    strPath = Left(strAll, Len(strAll) - Len(strFN))
    
    Debug.Print strPath
    Debug.Print strFN
    
    Debug.Print f_getFilExtension(strFN)
End Sub

Private Function f_GetFileName(strAll$) '得到不含路径的文件名
    Dim strArr$(), strPath$
    strArr = Split(strAll, "\")
    f_GetFileName = strArr(UBound(strArr))
End Function

Private Function f_getFilExtension(strFN$)
    Dim lngA&
    lngA = InStrRev(strFN, ".")
    If lngA ＞ 0 Then
        f_getFilExtension= Mid(strFN, lngA)
    Else
        f_getFilExtension= ""
    End If
End Function

运行结果：

C:\Windows\System\
system.dll
.dll