Dateipfad ohne letzten Ordner auslesen

Sub auslesen()
Dim Pfad As String, DateiName As String
DateiName = ActiveWorkbook.Name
Pfad = Workbooks(DateiName).Path
Range("A1").Value = Pfad
End Sub

Allerdings brauche ich den Pfad ohne den letzten Ordner, also:
C:\Hallo\xy\z (Makro) soll sein C:\Hallo\xy. Hab im Archiv nichts brauchbares gefunden.
Kann man das realisieren und wenn ja wie?
Schonmal vielen Dank
Gruß
Chris