Dim inspoint(0 To 2) As Double
Dim textstr As String
Dim textobj As AcadText
Dim textheight As Double
inspoint(0) = 100
inspoint(1) = 100
inspoint(2) = 0
textheight = 100
textstr = "Hello world"
Set textobj = ThisDrawing.ModelSpace.AddText(textstr, inspoint, textheight)
textobj.Update
ZoomAll