Написать программу, которая определит, за какой срок выплаченных арендатору денег составит заданную величину - VB

Формулировка задачи:

Помогите пожалуйста, вот условия задачи: Клиент выплачивает арендную плату в размере S руб. в месяц. За пол года арендатор увеличивает размер арендной платы на P%. Написать программу, которая определит, за какой срок выплаченных арендатору денег составит заданную величину. Диаграмма должна показывать динамику изменения размера арендной платы за определенный промежуток времени. Прошу помочь в написании программного кода. . . Заранее спасибо)

Решение задачи: «Написать программу, которая определит, за какой срок выплаченных арендатору денег составит заданную величину»

textual
                            Листинг программы 
                        

                             Dim maximum As Single = 500    'это ограничение (заданная величина)
        Dim P As Single = 5   'на сколько проц увеличивается плата
        Dim S As Single = 5
        Dim m As Integer
        Dim obsheeKolvoDeneg As Single
        Dim kPolGoda As Integer
 
        Do
            m = m + 1
            kPolGoda += 1
            'каждые пол года....
            If kPolGoda = 6 Then
                S = S + S * 5 / 100  'увеличили сумму выплат....
                kPolGoda = 0
            End If
 
            obsheeKolvoDeneg += S
        Loop While obsheeKolvoDeneg < maximum
        MsgBox(m)   'сколько месяцев прошло
                        