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