Как сделать приложение?

Sub Example_01()
Dim returnPnt As Variant
Dim plineObj As AcadPolyline
Dim points(0 To 11) As Double
Dim returnS_X As Double
Dim returnS_Y As Double
Dim circleObj As AcadCircle
Dim CenterPoint As Variant
Dim Radius As Double
    On Error GoTo end_prg
returnPnt = ThisDrawing.Utility.GetPoint(, "Укажите точку центра отверстия: ")
returnS_X = ThisDrawing.Utility.GetDistance(, "Введите длинну прямоугольника: ")
returnS_Y = ThisDrawing.Utility.GetDistance(, "Введите высоту прямоугольника: ")
    points(0) = returnPnt(0)
    points(1) = returnPnt(1)
    points(2) = 0
    points(3) = returnPnt(0) + returnS_X
    points(4) = returnPnt(1)
    points(5) = 0
    points(6) = returnPnt(0) + returnS_X
    points(7) = returnPnt(1) + returnS_Y
    points(8) = 0
    points(9) = returnPnt(0)
    points(10) = returnPnt(1) + returnS_Y
    points(11) = 0
Set plineObj = ThisDrawing.ModelSpace.AddPolyline(points)
plineObj.Closed = True
plineObj.Update
Do While (True)
    CenterPoint = ThisDrawing.Utility.GetPoint(, "Укажите точку центра отверстия: ")
    Radius = ThisDrawing.Utility.GetDistance(, "Введите радиус отверстия: ")
    Set circleObj = ThisDrawing.ModelSpace.AddCircle(CenterPoint, Radius)
Loop
end_prg:
End Sub

Sub Example_01()'Название процедуры
'Описание работы процедуры
'Объявление переменных
Dim a As Variant
    'Обработчик ошибок
    On Error GoTo end_prg
'В случае ошибки и при штатном
завершение программы выполять этот код
end_prg:
'Завершение процедуры
End Sub