Проблема в том что пока IF сработает, у меня произойдет несколько проходов программы, а мне надо несколько 2-4 раза в одном проходе программы вызывать это время. Получается этот проход идет меньше одной секунды и пока .Done<>TRUE , он мне выплевывает ноль.