Изменение точки вставки атрибута в блоке?

Sub NewInsertPoint()
    Dim Object As Object
    Dim PickedPoint As Variant, TransMatrix As Variant, ContextData As Variant
    ThisDrawing.Utility.GetSubEntity Object, PickedPoint, TransMatrix, ContextData
    Dim objAtt As AcadAttributeReference
    Dim varPt As Variant
    varPt = ThisDrawing.Utility.GetPoint(, "Enter a point: ")
    Set objAtt = Object
    objAtt.InsertionPoint = varPt
    ThisDrawing.Regen acActiveViewport
End Sub

[b]Dim varPt(2) As Double[/b]
    'varPt = ThisDrawing.Utility.GetPoint(, "Enter a point: ")
    varPt(0) = 21100
    varPt(1) = 2667
    varPt(2) = 1000
    Set objAtt = Object
    objAtt.InsertionPoint = varPt
    ThisDrawing.Regen acActiveViewport

Dim objInsertBlock As AcadBlockReference
   Dim objAtr As AcadAttributeReference
   Dim varAtrPt As Variant
   Dim varAtr As Variant
   Set objInsertBlock = ThisDrawing.ModelSpace.InsertBlock(dPt, "ФБС12.6.3-Т", 1, 1, 1, 0)
   ZoomCenter objInsertBlock.InsertionPoint, 10000
   varAtrPt = Utility.GetPoint
   For Each varAtr In objInsertBlock.GetAttributes
      Set objAtr = varAtr
      If objAtr.Layer = "Att~Marka" Then
         objAtr.InsertionPoint = varAtrPt
      End If
   Next