Set Elements = Browser("Register: Mercury Tours").Object.Document.all.tags("TD")
For each Element in Elements
If Element.InnerText=“Password:" Then
strhtml=Element.Innerhtml
n=instr(strhtml,"color=read")
If n<>0 Then
Reporter.ReportEvent 0, Element.InnerText, "Text color is red!"
End If
End If
Next