¿Cómo codificar texto horizontal o números en cad vba?

Dim insPoint(0 To 2) As Double 'Declara el punto de inserción

Dim textHeight As Double 'Declara la altura del texto

Dim textStr As String ' Declarar el carácter String

Dim textObj As AcadText 'Declarar objeto de texto

insPoint(0) = 10 'Establecer X-Establecer la coordenada X del punto de inserción

insPoint(1) = 10 'Establece la coordenada Y del punto de inserción

insPoint(2) = 0 'Establece la coordenada Z del punto de inserción

textHeight = 10 'Establece la altura del texto a 10

textStr = "Hello World" 'Establecer cadena

'Crear objeto de texto

Establecer textObj = ThisDrawing.ModelSpace.AddText(textStr, insPoint, textHeight)

'Guardar dibujo

ThisDrawing.SaveAs ("Hello.dwg")

End Sub