Returns the number of Rule objects in the collection.
[propget] HRESULT Count([out, retval] long *pVal)
Property Count As Long
For i = 1 to objRules.Count Set objRule = objRules(CInt(i)) Next