Public Sub AhojSvete()
    Dim bodVlozeni(0 To 2) As Double
            ' deklarace proměnné pole pro vložení tří prvků
            ' Double, reprezentujících souřadnice bodu vložení textu
    Dim textVyska As Double
            ' deklarace proměnné typu Double, reprezentující výšku textu
    Dim textRetezec As String
            ' deklarace proměnné typu String, obsahující vypisovaný text
    Dim textObj As AcadText
            ' deklarace proměnné objekt typu AcadText

    bodVlozeni(0) = 50     ' nastavení x-ové souřadnice bodu vložení
    bodVlozeni(1) = 30     ' nastavení y-ové souřadnice bodu vložení
    bodVlozeni(2) = 0      ' nastavení z-ové souřadnice bodu vložení

    textVyska = 5                       ' nastavení velikosti textu
    textRetezec = "Zdravíčko světe!"    ' zobrazovaný text

    'Vytvoření textového objektu
    Set textObj = ThisDrawing.ModelSpace.AddText _
                        (textRetezec, bodVlozeni, textVyska)
    textObj.Color = acRed
    ThisDrawing.Application.ZoomExtents
    ThisDrawing.SaveAs ("Hello.dwg")
End Sub