Function to return comment from a cell, or null string if no comment

Maybe this

Function GetComment(CommentedCell As Range) As String
 On Error GoTo nocomment
 If Not CommentedCell.Comment.text = "" Then
    GetComment = CommentedCell.Comment.text
 End If
Exit Function
nocomment:
    GetComment = "Cell Has No Comment"
End Function