Caption property example

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