VBA의 모듈에서 실행하는 것을 폼으로 옮겨서 실행 하려고 하는데요..

아래 소스의 빨간 부분을 수정해여서

지금은 지금은 명령 입력 후 블럭을 클릭하여 블럭을 받아들여 명령을 수행하는데

블럭클릭 없이 ThisDrawing에 있는 어트리부트 블럭인 “GG”라는 이름의 블럭을

무조건 받아들여 아래의 명령을 수행하도록 하려면 어떻게 해야하나요??


Sub CHANGEATTRIBUTE()
   Dim oEnt As AcadEntity
    Dim varPick As Variant
    Dim brBref As AcadBlockReference
    Dim arAttR As AcadAttributeReference
    Dim varAt As Variant
    Dim i As Double

    ThisDrawing.Utility.GetEntity oEnt, varPick, vbCr & “Get the block”
   
    Set brBref = oEnt
    varAt = brBref.GetAttributes
 
    For i = 0 To UBound(varAt)
        If varAt(i).TagString = “CEIL” Then
            varAt(i).TextString = “new”
        End If
    Next
End Sub

VBA에서

속성으로 넣은 태크와 값을 가져오고 싶은데요

클릭 버튼을 누르면 t1.text에
 
열린도면의 블록네임 ABC의 OH태그의 값을 넣고 싶은데


t1.text =

여기에 무엇을 넣아야 할까요??