QTP & QC->Code for create the function to call a reporter event with micPass

'****************************************************************************************************************************
'Function Name : Fun_ReportSuccess
'Description   Use this function to call a reporter event with micPAss
'Parameters     strStepName , strDescription        
' Example    Fun_ReportSuccess "Main Menu" , "Header displayed"
'****************************************************************************************************************************
Function Fun_ReportSuccess(strStepName , strDescription)
 Reporter.ReportEvent micPass , FunTestIterationNumber & "_QTP_" & strStepName , strDescription
End Function