Форум по VBA и MS Office

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

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

спасибо