Caption property example

Sub Caption_Example()
' This example returns the caption for the current session
    Dim strCaption As String
    strCaption = ThisDrawing.Application.Caption
    MsgBox ("Caption is: " & strCaption)
End Sub