How can i edit a cell comment..?

Hello,

to add some text and the the current date to any existing comment in the sheet, for example, use code along the lines of

Dim cmt As Comment
Dim mystr As String
For Each cmt In Worksheets("Sheet1").Comments
    mystr = cmt.Text
    cmt.Text mystr & " last changed: " & Date
Next cmt