Path property example

The following example demonstrates how to return the Path property.

Sub Path_Example()
    Dim myPath As String
    myPath = ThisDrawing.Application.Path
    MsgBox ("Path is: " & myPath)
End Sub