fjerne stien i sti+filnavn

nu har jeg hele stien til min be. men skal kun have vist filnavnet.
jeg har prøvet med denne funktion, men får fejl i denne linie,
Set fs = CreateObject(\"Scripting.FileSystemObject\")


Function ShowFileInfo(filespec As String) As String
    Dim fs
    Set fs = CreateObject(\"Scripting.FileSystemObject\")
    ShowFileInfo = fs.GetFileName(filespec)
End Function

(fandt den andet sted på E)