Append 文本到单元格的现有注释

Question

我如何将 append 文本添加到现有评论？ 下面是我的代码：

For Each c In Range("G" & iCellIndex)
  If StrComp(JSONObj2("fields")("worklog")("worklogs")(j + 1)("author")("displayName"), Range("G" & iCellIndex).Value) = 0 Then
     Set cmt = ActiveCell.AddComment
     cmt.Comment.Text iTimeStamp & "--" & JSONObj2("fields")("worklog")("worklogs")(j + 1)("timeSpent") ', 1, False
     'Range("G" & iCellIndex).AddComment iTimeStamp & "--" & JSONObj2("fields")("worklog")("worklogs")(j + 1)("timeSpent") , 1, False
  End If
  iCellIndex = iCellIndex + 1
Next c

当我运行此代码时，我收到“应用程序定义/对象定义错误”。 我在这里做错了什么？