In diesem Beispiel wird der Text des Kommentars für Zelle A1 in Sheet1 festgelegt.
Worksheets("Sheet1").Range("A1").NoteText "This may change!"