Sub Example_TextStyles()
    ' Этот пример находит текущую коллекцию Textstyles и добавляет новый
    ' Стиль текста к той коллекции.
    
    Dim TextColl As AcadTextStyles
    Set TextColl = ThisDrawing.TextStyles
    
    ' Создайте Стиль текста по имени "TEST" в текущем рисунке
    Dim textStyle As AcadTextStyle
    Set textStyle = TextColl.Add("TEST")
    MsgBox "Новый Стиль текста " & textStyle.name & " добавился к коллекции Textstyles.", vbInformation, "Textstyles Пример"
End Sub