Задача в VBA

[Бурундук]

Начав тренировки, лыжник в первый день пробежал 10 км. Каждый следующий день он увеличивал пробег на 10% от пробега предыдущего дня. Определить, в какой день он пробежит больше 20 км.

ДАНО: начальный пробег probeg = 10 км, номер начального дня day = 1
НАЙТИ: номер дня, когда пробег > 20
....
вот что готово, меня смущает, что криво считает...кажется ошибка цикле,
прошу помочь исправить, заранее благодарю.

Sub z1()
Dim probrg, day
day = 1 'задаем начальное значение дня
probeg = 10 'задаем начальное значение пробега
While probeg <= 20 'пока пробег не больше 20 км
day = day + 1 'увеличиваем день на 1
probeg = probeg * 1.1 'и увеличиваем пробег на 10%
Wend 'конец цикла
MsgBox ("probeg = " & probeg & " day = " & day) 'выводим пробег и день
End Sub

[Mandrivnyk]

Что выдает-то?
Должно выдавать 9 дней, пробег 21.4359

ЗЫ объявляешь переменную probrg, а используешь probeg

[Бурундук]

Сообщение от Mandrivnyk

Что выдает-то?
Должно выдавать 9 дней, пробег 21.4359

ЗЫ объявляешь переменную probrg, а используешь probeg

спасибо, а 9 дней это точный ответ? (у меня 9 показывает, не знаю точно это или нет)

можно ли как то усовершенствовать или что то изменить? если да, то каким образом? =)

[Mandrivnyk]

спасибо, а 9 дней это точный ответ? (у меня 9 показывает, не знаю точно это или нет)

А ручками посчитать для проверки -- никак?

можно ли как то усовершенствовать или что то изменить?

Куда совершенствовать-то?
Две переменные, ввод, цикл, вывод...