Cell's text / comment (no comment )

Sub test_comment()
      With ActiveCell
         
         If Not .Comment Is Nothing Then
            .Comment.Delete
         Else
            .AddComment "comment / text "
            .Comment.Visible = True
         End If
      End With
End Sub