DIM hResultField AS .ResultField
FOR EACH hResultField
  ...
NEXT

This is a synonymous of the Find method.