VBA: Somar textos em Autocad, GstarCad e ZwCad

Esta rotina em VBA mostra como juntar várias parcelas de texto num único apenas.

Para Autocad :

Option Explicit

Public Sub Somar_textos()

Dim PontoInicial(0 To 2) As Double
Dim Textos As String
Dim NovoTexto As AcadText

PontoInicial(0) = 0
PontoInicial(1) = 0
PontoInicial(2) = 0
Textos = "Loja" & " dos " & "Desenhadores"

Set NovoTexto = ThisDrawing.ModelSpace.AddText(Textos, PontoInicial, 1)

ZoomExtents

End Sub

Para GstarCad :

Option Explicit

Public Sub Somar_textos()

Dim PontoInicial(0 To 2) As Double
Dim Textos As String
Dim NovoTexto As GcadText

PontoInicial(0) = 0
PontoInicial(1) = 0
PontoInicial(2) = 0
Textos = "Loja" & " dos " & "Desenhadores"

Set NovoTexto = thisDrawing.ModelSpace.AddText(Textos, PontoInicial, 1)

ZoomExtents

End Sub

Para ZwCad : 

Option Explicit
Public Sub Somar_textos()

Dim PontoInicial(0 To 2) As Double
Dim Textos As String
Dim NovoTexto As ZwcadText

PontoInicial(0) = 0
PontoInicial(1) = 0
PontoInicial(2) = 0
Textos = "Loja" & " dos " & "Desenhadores"

Set NovoTexto = ThisDocument.ModelSpace.AddText(Textos, PontoInicial, 1)

End Sub

Obrigado

Boa programação