The following example demonstrates how to return the FullName property.
Private Sub FullNamePropExample()
Dim myName As String
myName = Application.FullName
MsgBox ("Name is: " & myName)
End Sub