Then you post, please always indicate WHAT the error is. Also post your
actual code, not a hand-typed version of it.

However ...

Private Sub CommandButton1_Click()
If ActiveCell.Comment Is Nothing Then
MsgBox ("empty")
Else
MsgBox (ActiveCell.Comment.Text)
End If
End Sub

Ok. That's cool. Actually this code  new for me
I never know if there's a code like "Is" :)
It is getting more english than a code.
If VBA is so easy than that's good :)