COMMENTGET

Returns the comment associated with a particular cell.
Also need NOTEGET

'rgeCell - The cell containing the comment

Public Function COMMENTGET(ByVal rgeCell As Range) As Text 
   COMMENTGET = rgeCell.Comment.Text 
End Function