Recuperando o nome da pasta

Olá pessoal,

Tenho uma váriavel que armazenará diferentes paths, exemplo:

vcaminho1= "'C:\inetpub\wwwroot\site01\brunasouza"

vcaminho2= "'C:\inetpub\wwwroot\site01\palomaduarte"

vcaminho3= "C:\inetpub\wwwroot\site01\madonna"

Gostaria de isolar apenas o último nome que é o nome da pasta ex:

vpasta1= brunasouza

vpasta2= palomaduarte

vpasta3= madonna

estou tentando usando inStr e InstrREV mais não estou conseguindo...

eu já consegui fazendo assim:

vname = server.MapPath(".")

'JEITO 1

'//============================================================

dim fs

set fs=Server.CreateObject("Scripting.FileSystemObject")

Response.Write(fs.GetBaseName(vname & "<br>"))

set fs=nothing

mais creio eu que o consumo de processamento seria maior abrindo o objeto FSO

Alguém pode ajudar aí pessoal ??