Hello API's guru!

I'm novice in the API and ask for help.
In my macro I want to define content of annotation. Annotation is a single annotation attached to single view of sheet. Annotation is \$PRP\$SHEET"PartNo"_\$PRP\$SHEET"Description"
examlpe of code:

vSheetNameArr = swDraw.GetSheetNames

For Each vSheetName In vSheetNameArr
          If Left(vSheetName, 3) = "DXF" Or Left(vSheetName, 3) = "dxf" Then
           bRetSheet = swDraw.ActivateSheet(vSheetName): Debug.Assert bRetSheet ' rebuild sheet

      Set swView = swDraw.GetFirstView
      AnnArray = swView.GetAnnotations

      If Not IsEmpty(AnnArray) Then

          For Each vObj In AnnArray
                Set CurrAnn = vObj
                Debug.Print swView.GetName2, CurrAnn.GetName

           Next vObj
End If

What I need to define content of annotation?

May be alternative method? without Array

thank you for your kind thought of me.