добавление кода к уже существующему макросу

Я начинающий дизайнер-программист, пишу макросы для CorelDRAW. В стандартном варианте есть параметры стекла (400, 600), которое вставляется в фрезеруемую панель HPL. Т.е. размеры стекла (главный элемент конструкции, потом на него наносятся разные пескоструйные рисунки) и внутреннего выреза (вторичный элемент конструкции) не менялись пару лет, менялись только наружные размеры HPL (третичный элемент конструкции).

Сейчас стали заказывать конструкции, когда размеры HPL стали главными, а размеры стекла и внутренняя фрезеровка стали вторичными, и их надо подгонять под размеры HPL. Из-за этого появилась необходимость сделать дополнения к уже готовому макросу.

Ниже привожу код существующего макроса.

Sub HPL () 

    dist_x = 510 
    dist_y = 710 

    ActiveDocument.Unit = cdrMillimeter 
    ActiveDocument.BeginCommandGroup "HPL" 
    Dim prm_frz As Shape, prm_HPL As Shape, prm_pes As Shape 
    Set prm_HPL = ActiveLayer.CreateRectangle(0, 0, dist_x, dist_y) 
    Set prm_frz = ActiveLayer.CreateRectangle(dist_x / 2 - 205, dist_y / 2 - 305, dist_x / 2 + 205, dist_y / 2 + 305) 
    Set prm_pes = ActiveLayer.CreateRectangle( - 650, 0, - 250, 600)  
    ActiveDocument.EndCommandGroup 
End Sub 

Какие изменения необходимо сделать, чтобы работала и стандартная прорисовка, когда HPL подгоняется под стекло, и наоборот, когда стекло подгоняется под HPL. И при этом, если идёт главным стекло, никаких подсказок, а когда HPL становится главным, всплывала подсказка: «параметры стекла изменены!»
Помогите пожалуйста!