[lxa85]

У меня VBA под руками нет, но как-то так:

Код:

function catch(pr,vic) as boolean:
if pr.x=vic.x then catch=true
else catch=false:
end function

procedure eat(pr,vic) :
pr.eat=pr.eat+1:
Vic.killed=true:
end procedure:

if Catch(Predator, Victim) then Eat(Predator, Victim)

помогло?