Check if a cell has comments

Hi guys

how do i check if a cell has comments in VBA?

If Cells(ActiveCell.Row, 9).Comment.Text <> "" Then

using this but it dosnt like it if there is no comment.

My bad I sorted it

Here

Sub X() 
     
    With ActiveCell 
        If Not .Comment Is Nothing Then 
            If .Comment.Text <> "" Then 
                MsgBox "Comment with text " & vbLf & .Comment.Text, vbInformation 
            Else 
                MsgBox "Comment with no text", vbExclamation 
            End If 
        Else 
            MsgBox "No comment", vbCritical 
        End If 
    End With 
     
End Sub