How to (programmatically) figure out the path of the current ArcMap document with VBA

I would like a Visual Basic for Application Function which shows the path of the current document.

For example if ArcMap is displaying map.mxd I need to display its path.

I found only s开发者_如何学Goome examples for querying the path of the datasources of the displayed layers.

Use this:

Dim DocAbsPath As String
DocAbsPath = Application.Templates.Item(Application.Templates.Count - 1)

Taken from this thread.