Sub Example_Caption()
    ' Этот пример возвращает заголовок для потока AutoCAD.
    
    ' Получите свойство Заголовка
    Dim strCaption As String
    strCaption = ThisDrawing.Application.Caption
    MsgBox "Заголовок для этого сеанса - " & ThisDrawing.Application.Caption, , "Caption Пример"
    
End Sub