Getting and Displaying a Vault "Path" with VBA

1) I've been looking through the PDMW API and I cannot see how I might get the "Vault Path" since there are folders with in folders with in folders there.

2) We find it useful to include it on all our print outs and PDFs and the usual:

swModel.EditSketch
swModel.SelectByID "", "NOTE", 0.008199680981595, 0.00594718404908, 0

swModel.SelectByID "1", "SHEET", 0.008199680981595, 0.00594718404908, 0
swModel.InsertNewNote3 filePath & " " & Date & " " & Time & "  by  " & Auth, 1, 1, 1, 0, 0, 0, 0, 1
swModel.EditSketch
swModel.SelectByID "", "NOTE", 0.008199680981595, 0.00594718404908, 0
swModel.FontPoints "11"
swModel.ClearSelection
swApp.ActiveDoc.ActiveView.FrameState = 1

Doesn't appear to be working for us in SolidWorks 2010.

Thanks in advance.

SolidworksWorkgroup Pdm