VBA Макросы: Как извлечь путь папки, файла?

[Посетитель]

Как извлечь путь? Я делаю так, но эта строка обрезает почему-то путь:
Cells(1, 1).Value = Right(PathDir, InStrRev(PathDir, "\"))

[Администратор]

Путь нужно извлечь так. Правый слеш не извлекается:
Cells(1, 1).Value = Left(PathDir, InStrRev(PathDir, "\") - 1)

[Посетитель]

спасибо