DIM
hResultField
AS
.ResultField
FOR EACH
hResultField
...
NEXT
Это синоним метода
Find
.