таблица в VB 6.5

[levity_92]

необходимо создать combobox с 3 возможными вариантами расчета данных с выводом в таблицу.

вот например для 1 таблицы
Dim pV, ps, rate, n, r, k, s As Single
Dim i As Integer

n = InputBox("срок кредита")
pV = InputBox("сумма кредита")
ps = InputBox("процентная ставка")
rate = 1.67
r = pV / n
i = pV * rate
pV = 1000
ps = 83.33
t.RowCount = n + 1
For i = 0 To n - 1
t.Rows(i).Cells(0).Value = i + 1
If i = 0 Then
t.Rows(i).Cells(1).Value = pV
Else
t.Rows(i).Cells(1).Value = t.Rows(i - 1).Cells(1).Value - ps
End If

If i = 0 Then
t.Rows(i).Cells(4).Value = 100
Else
t.Rows(i).Cells(4).Value = t.Rows(i - 1).Cells(4).Value - 1.39
End If
t.Rows(i).Cells(3).Value = 83.33
t.Rows(i).Cells(2).Value = t.Rows(i).Cells(4).Value - t.Rows(i).Cells(3).Value
t.Rows(n).Cells(0).Value = "Итог"
t.Rows(n - 1).Cells(1).Value = " "
t.Rows(n).Cells(3).Value = pV
k = t.Rows(i).Cells(2).Value
k = k + t.Rows(i).Cells(2).Value
t.Rows(n).Cells(2).Value = k
s = t.Rows(i).Cells(4).Value
s = s + t.Rows(i).Cells(4).Value
t.Rows(n).Cells(4).Value = s

но не получается посчитать сумму из массива в 3 и 5 столбике