VBA to change text value

[Eurobum]

Hello All,

I create the text annotation using this command thru the Excel VBA.

Set Note = Part.InsertNote(Range("L2").Value)

It works fine. Now, if I want to modify this text box, I try to use those line code but it didn't work.

boolstatus = Part.Extension.SelectByID2("DetailItem117@Sheet1", "NOTE", 0.1095726405204, 0.05254948566151, 0, False, 0, Nothing, 0)
Set Note = Part.Parameter("DetailItem117@Sheet1")
retval = Note.SetText("123")

So everytime I need to modify the text value I have to delete the existing one and insert the new text as mentioned above.

Could you tell me how to do it more efficiently. Thank you.