AutoCad - Insetar Texto con macro

public Sub MyMacro()

Dim objEnt As AcadMText

Dim insertionPnt(0 To 2) As Double

Dim dblWidth, dblHeight As Double

Dim strText As String

dim prefijo as string

dim numeroInicial as Integer

dim rotation as double

insertionPnt(0) = 0

insertionPnt(1) = 0

insertionPnt(2) = 0

prefijo="Z"

numeroInicial=1

dblWidth = 2

dblHeight = 5

rotation= GradosARadianes(90) ''Necesitas una funcion para convertir los grados a radianes.

strText=prefijo+cstr(numeroInicial)

Set objEnt = ThisDrawing.ModelSpace.AddMText(insertionPnt, dblWidth, strText)

objEnt.height = dblHeight

objEnt.Rotation=rotation

objEnt.color=acBlue

end sub