Dim strToken() as String
strToken = Split("C:\Win\Sys\", "\")
MsgBox (strToken(Ubound(strToken) - 1))

でどう？ただし、一番右に\あるかどうかとか、空白の時のエラー処理していないが