ヘルプを参考にして、ツリービューから選択した操作にタグ付き値を追加しようとしたところ、AddNew()で例外が起きるようです。また、GetLastError()で何も取得できません。

　簡略化したコードは、以下のようになります。

Private Sub TestMethod(ByRef Repository As EA.Repository, ByRef method As EA.method)

Dim tagCollection As EA.Collection
Set tagCollection = method.TaggedValues
Dim t As Object
On Error GoTo Err
t = tagCollection.AddNew("TestTaggedValue", "something")
MsgBox "Add tag-value"
If t.Update = False Then
Dim dispStr As String
dispStr = "TaggedValues: " + t.GetLastError
MsgBox dispStr
End If

Exit Sub

Err:
Dim dispMsg As String
dispMsg = "Add New Error: " + tagCollection.GetLastError()
MsgBox dispMsg

End Sub

　method.Nameがきちんと取れるので無効オブジェクトではないと思うのですが、どうしたらエラー情報などを取得することができるでしょうか？

弊社環境では操作のタグ付き値を追加することができました。

環境が異なる可能性もありますが、AddNewを行っている行の
先頭にSetを付加した場合はいかがでしょうか？

なお、GetLastError()につきましては、Nullアクセスや
プログラミング言語の文法などの理由によるエラーの場合は、
何も返却されません。

ご確認のほど、よろしくお願いいたします。

ご指摘通り、Setを追加したらタグ値が追加できるようになりました。
VisualBasic6.0を使っているので、古過ぎてサンプル通りにいかないのでしょうか。

とにかく、対処法が分かって助かりました。
迅速な対応、ありがとうございました。

ご確認ありがとうございました。
無事追加できたようで安心しました。

弊社ヘルプもVisualBasic6.0を利用した場合のサンプルを載せていますが、
そのまま利用しても正しく動作しない場合があったようで、
お手数をお掛けし、申し訳ございませんでした。

APIのサンプルコードはヘルプ以外にも以下のWebページで
実際に動作した実績のあるコードを掲載していますので、
よろしければ合わせてご利用ください。
https://www.sparxsystems.jp/products/EA/tech/tc_23.htm#sourcecode

今後ともよろしくお願いします。