Циклы в VB6

Запутался с циклами.У меня есть три процедуры,которые считают коэффициенты k,n и d 1.Начальные значения d и n задает пользователь. 2.Рассчитывается nmax(их 4) и проверяется какое из них соответствует условию 1,9<n<2,3 3.Рассчитывается nmin(их 4) и проверяется какое из них соответствует условию 1,9<n<2,3 4.Полученные значения подставляются в процедуру для расчёта d и вычисляется значение d 5.Полученные nmax и nmin подставляются в процедуру для расчёта k(их 4) и проверяется какое из них соответствует условию. 6.Затем k и d из 4 и 5 пункта подставляем во второй и третий пункт,где пересчитываем значения n. 7.опять считаем d 8.опять считаем k И так проделать 4 итерации Может кто знает похожие примеры с такими же действиями.