Расчет суммы по вкладу - VB

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

Задача состоит из двух частей: а) расчитать наращенную сумму по вкладу в размере 100тыс руб, если процентная ставка составляет 18% годовых. Вклад сделан сроком на 5 лет, а начисление производится ежеквартально на ту сумму, которая имеется на счету на начало ресчетного периода.

б) При тех же начальных условиях расчитать через сколько лет наращенная сумма увеличивается в 5 раз.

Я составила программу для части А), вот она.....помогите доделать часть Б)

Dim Sv As Single, Proc As Single, Srok As Single, NS As Single
Private Sub Command1_Click()
If Not IsNumeric(Text1.Text) Then
    MsgBox "вы ввели нечисловое значение"
    Text1.Text = ""
    Text1.SetFocus
Exit Sub
End If
If Not IsNumeric(Text2.Text) Then
    MsgBox "вы ввели нечисловое значение"
    Text2.Text = ""
    Text2.SetFocus
Exit Sub
End If
If Not IsNumeric(Text3.Text) Then
    MsgBox "вы ввели нечисловое значение"
    Text3.Text = ""
    Text3.SetFocus
Exit Sub
End If
 
Sv = Text1.Text
Proc = Text2.Text / (4 * 100)
Srok = Text3.Text
NS = Sv
For i = 1 To Srok * 4
NS = NS + NS * Proc
Next
Text4.Text = NS
End Sub

Решение задачи: «Расчет суммы по вкладу»

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

                            p = Sqr(Sqr(1.18)) 'ежеквартальный процент
NS = 100 
NSx5 = NS * 5
k = 0 'кол-во кварталов
Do While NS < NSx5
  NS = NS * p
  k = k + 1
Loop
MsgBox k / 4
                        