50 ! спортсмен в первый день пробежал 10 км. каждый следующий день он увеличивает дневную норму на 10% сделайте в vb

Dim days As Double 
Dim percent As Double 
Dim baseKM As Double 
Dim result As Double 
days = 7 
percent = 10 
baseKM = 10 
result = baseKM 
For i = 1 To days 
result += (result * percent) / 100 
Next 
Print(result)