分居モデルでの条件付きセル移動について

構造計画研究所のartisocモデル集に掲載されている分居モデルについて、サンプルモデルは不満なエージェントがランダムな空いているセルに"MoveToSpaceOwnCell"で移動する、というものなのですが、これを最も満足度が高い（まわりに自分と同じ種類のエージェントが一番多く存在する）セルに移動するように変えたいです。現在はDo Until文を使って、前と同じ満足度かそれ以上になるまで移動を繰り返させているのですが、現存している空きセルのMaxの満足度がわからないため、Do Until文で最高満足度のセルに向かわせることができません。解決方法がありましたら、ご教示をお願いいたします。