AddText method example

Sub AddTextExample()
' This example creates Text and adds it to the drawing using the
' AddText method.
    Dim sBuf As String
    Dim oText As AcadText
    Dim insPt(0 To 2) As Double
    insPt(0) = 0: insPt(1) = 9
    Dim dHeight As Double
    dHeight = 1
    sBuf = "Test string for the AddText method"
    ' Add the text Object
    Set oText = ThisDrawing.ModelSpace.AddText(sBuf, insPt, dHeight)
    oText.Update
    ThisDrawing.Application.ZoomExtents
End Sub