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