How to determine if a cell's comment is blank or empty?

  
    If Cells(1, 1).Comment Is Nothing Then
        MsgBox "this cell does not have a comment"
    Else
      If len(cells(1,1).comment.text) > 0 then
        MsgBox "this cell has a comment with text"
      Else
        Msgbox "this cell has a blank comment"
       End if
    End If