Attribute VB_Name = "testcellcomment2"
Sub テスト()
   
    Dim comment1 As Comment
    
    Set comment1 = Range("B2").Comment
    comment1.Text "新しいコメント"

End Sub