Olá pessoal tenho gostaria de uma ajuda, gostaria de uma macro que editasse os atributos de uma bloco, em meu exemplo eu consigo apenas, colocar o bloco em uma coordenada "X'Y" e descrever um atributo, minha ideia e apenas modificar o atributo sem colocar o bloco segue o codigo abaixo.

Private Sub CommandButton1_Click()

Dim Form As AcadBlockReference
Dim varAttributes As Variant

Dim insertptForm(0 To 2) As Double
''Define o ponto de inserção
insertptForm(0) = 0
insertptForm(1) = 0
insertptForm(2) = 0
''insere o primeiro formato
Set Form = ThisDrawing.ModelSpace.InsertBlock(insertptForm, "NAMEBLOCK", 1, 1, 1, 0)


varAttributes = Form.GetAttributes
Dim i As Integer
For i = LBound(varAttributes) To UBound(varAttributes)
If varAttributes(i).TagString = "TAG" Then
'alteramos o texto desse atributo
varAttributes(i).TextString = Format("DESCRIÇÃO ATRIBUTO")
Exit For
End If
Next



End Sub