The following example demonstrates how to return the Path property.
Private Sub PathPropExample()
Dim myPath As String
myPath = Application.Path
MsgBox ("Path is: " & myPath)
End Sub