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

Это синоним метода Find .