Разбитие пути к файлу на составляющие - VBA

Формулировка задачи:

Всем доброго времени суток! Подскажите пожалуйста как получить определенный участок пути к файлу из имеющегося: C:\Users\Сергей\Desktop\Учеба\ Нужно к примеру получить: 1. только Учеба 2. только Сергей 3. Desktop\Учеба Само имя файла научился выделять, благо примеров много,а вот как такие разделения сделать, не нашел Заранее благодарен

Решение задачи: «Разбитие пути к файлу на составляющие»

textual
                            Листинг программы 
                        

                            Function uuu1(t$)
 With CreateObject("VBScript.RegExp"): .IgnoreCase = True: .Pattern = "[а-яёa-z]+": .Global = True
    uuu1 = .Execute(t)(.Execute(t).Count - 1)
 End With
End Function
                        