You can retrieve the parent directory from a path by identifying the first and last backslash. The start position for the first backslash should be 3 in order for it to handle UNC paths. By skipping the last character, the path may or may not include an ending backslash.
Public Function ParentPath(Path As String) As String
Dim Last As Long
Dim First As Long
Last = InStrRev(Path,