Dim Style , index
Style = Browser("Browser").Page("Page_22").WebEdit("#Aim").GetROProperty("outerHTML")
index = InStr (Style, "color=read")
If index <>0 Then
Reporter.ReportEvent micPass, "HTML compared", "OK"
Else
Reporter.ReportEvent micFail, "HTML compared", "Trouble"
End If