AFAIK there is no built in function to do this, but theres always vba.
Press Alt+F11 and paste this in a module:
Public Function ShowComment(Rng As Range)
ShowComment = Rng.Comment.Text
End Function
Then you can use it like any ordinary function.
Like this: =ShowComment(A1)