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

Function f_GetFileName(strFN) As String
    f_GetFileName = strFN
    lngX = InStr(strFN, "\")
    
    Do While lngX
        lngT = lngX
        lngX = InStr(lngT + 1, strFN, "\")
    Loop
    If lngT ＞ 0 Then f_GetFileName = Mid$(strFN, lngT + 1)
End Function

Private Sub Command1_Click()
    MsgBox f_GetFileName("c:\windows\manongku.txt")
End Sub