Sub Example_TextString()
    'Этот пример создает текстовый объект в пространстве модели.
    'Затем возвращает текстовую строку для того объекта.
    
    Dim textObj As AcadText
    Dim text As String
    Dim insertionPoint(0 To 2) As Double
    Dim height As Double
    
    'Определите текстовый объект
    text = "Привет, Мир."
    insertionPoint(0) = 2: insertionPoint(1) = 2: insertionPoint(2) = 0
    height = 0.5
    
    'Создайте текстовый объект в пространстве модели
    Set textObj = ThisDrawing.ModelSpace.AddText(text, insertionPoint, height)
    ZoomAll
    
    'Возвратите текущую текстовую строку для объекта
    text = textObj.textString
    MsgBox "Свойство TextString равняется: " & text, vbInformation, "TextString Пример"
        
End Sub