Put a Function in the Library and call this :

Write_result Browser("sss").page("sscs").webElement("sss").check (checkpoint),"your step details"

For Ex:

Function Write_result(Flag,steps)
   Select Case Flag
   Case "True"
  Reporter.ReportEvent 0,"Debugger",steps
   Case "False"
  Reporter.ReportEvent 1,"Debugger",steps 
   Case 2
   Reporter.ReportEvent 2,"Debugger",steps
   Case 3
  Reporter.ReportEvent 3,"Debugger",steps
   Case 4
     Reporter.ReportEvent 4,"Debugger",steps
   Case Else
  Reporter.ReportEvent 1,"Debugger","Data entry error in the calling command"
   End Select
End Function