アプリケーションのカレント ディレクトリーを取得する方法

FileSystem.CurDir

Dim pDocument As IDocument
Set pDocument = ThisDocument

Dim pVBProject As VBProject
Set pVBProject = pDocument.VBProject

Replace pVBProject.FileName, ".mxd", ""

Debug.Print pVBProject.FileName