Задача на ВБА 2

[Zulfat1993]

Sub kara()
Dim c(6, 5) As Double
Dim t, k As Double
Dim i, j As Integer
t = 0
For i = 1 To 6
k = 1
For j = 1 To 5
c(i, j) = InputBox("Введите число")
k = k * c(i, j)
Next j
t = t + k
Next i

Debug.Print t
End Sub

Помогите доделать.Нажимаю Run,ввожу числа,ответ выводит только ноль