Sub Example_Width()
    ' Этот пример создает объект MText в пространстве модели.
    ' Затем изменяет ширину объекта MText.
    
    Dim MTextObj As AcadMText
    Dim corner(0 To 2) As Double
    Dim width As Double
    Dim text As String
    corner(0) = 0: corner(1) = 5: corner(2) = 0
    width = 10
    text = "This is the text String for the mtext Object"

    ' Создает mtext Объект
    Set MTextObj = ThisDrawing.ModelSpace.AddMText(corner, width, text)
    ZoomAll
    
    ' Найдите текущую ширину объекта mtext
    width = MTextObj.width
    MsgBox "Текущая ширина объекта mtext - " & MTextObj.width, , "Width Пример"
    
    ' Измените ширину объекта mtext
    MTextObj.width = width / 2
    MTextObj.Update
    MsgBox "Новая ширина объекта mtext - " & MTextObj.width, , "Width Пример"
    
End Sub