How to do User-defined checkpoint in QTP

Dim OuterHTMLPro

OuterHTMLPro = Browser("BrowserName").Page("PageName").WebEdit("Editboxname").GetROProperty("outerHTML")

If OuterHTMLPro <> "name=neeraj" Then
       Reporter.ReportEvent micPass, "Property mached", "Property is Same"
Else
       Reporter.ReportEvent micFail, "Property mached", "Property is not Same"
End If