The following example demonstrates how to return the Application property.
Private Sub ApplicationPropExample()
Dim myObject As Application
Set myObject = Application
MsgBox ("Application is: " & myObject.Name)
End Sub