操作へのタグ付き値追加 で例外が起きる

　ヘルプを参考にして、ツリービューから選択した操作にタグ付き値を追加しようとしたところ、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がきちんと取れるので無効オブジェクトではないと思うのですが、どうしたらエラー情報などを取得することができるでしょうか？