How to highlight paragraphs and add comment

[KimLien]

I have macro to find text then highlight paragraphs having it.
Now i want to add comment to that paragraphs. But dont know how.
Can anyone suggest.

Here is code for Highlight

Sub Highlight_WordN()
Dim oRng As Range
Set oRng = ActiveDocument.Range
With oRng.Find
   Do While .Execute(FindText:="HAPPY")
   oRng.Paragraphs(1).Range.HighlightColorIndex = wdYellow
   oRng.Collapse 0
   Loop
End With
lbl_Exit:
Set oRng = Nothing
Exit Sub
End Sub

Thank you.
Lien