Excelのコメントを取得する・設定するVBAマクロ

　Excelで、コメントってつけられますよね。
　セルをクリックして右ボタン、「コメントの挿入」で、つけられるやつです。
　つけると、セルの右肩に赤い三角印がつき、そこのセルをクリックすると、コメントが見えます。

　で、そのコメントの設定方法について、VBAのサイトなんかをみると、かいてありますよね。
たいてい書いてあるのは、こんなかんじ

    Range("A1").AddComment
    Range("A1").Comment.Text Text:="コメント１：コメントです"

ただ、このやりかただと、コメントがすでについていると、エラーになります。
それと、今、書いてある、コメントを取得するには、どうするの？？

---

　で、NoteText()を使うと便利かも！

　以下のような形で、コメントの値が取得できます（メッセージボックスにコメントを表示します）。
　

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim com As String
    com = Target.NoteText()
    If (com <> "") Then
        MsgBox com
    End If
End Sub

逆に、コメントを設定するには、

　Target.NoteText("設定したいコメントを引数に！")

でＯＫです。