Get last folder vba

[kelly mort]

When I remove the last slash from the path

FullPath = ThisWorkBook.Path & "\MyFolder"

It works fine to display "MyFolder". But when I place it back as below, it shows blank. How do I fix that?

Because I need that last slash in my path.

Thanks

Sub GetLastFolder()
FullPath = ThisWorkBook.Path & "\MyFolder\"
c = InStrRev(FullPath, "\")
LastFolder =Right(FullPath, Len(FullPath)-c)
Msgbox LastFolder
End Sub