目的地にピッタリ到着する方法に関して

エージェントが目的地まで一定スピードで移動するプログラムを作りたいです。

ただし目的地を通り過ぎることのないようにしたいです。

My.Direction = GetDirection(My.X, My.Y, office.X, office.Y, Universe.city)

Forward(10)

このように書くと、一定スピードで目的地まで進むことができますが、10ずつ進むため、目的地を通り過ぎでしまい、目的地の前後で行き来を繰り返してしまいます。

目的地を通り過ぎることなく、ピッタリ目的地で止まらせるには、どのようなプログラムを書けばよろしいですか？ご回答よろしくお願い致します。