Помогите разобраться с задачей! - VB

Задание 1
Имеется информация о наличии N торгового оборудования на складе. Определить общие количество оборудования.
Программа на VBA
Sub Задание1()
Dim O() As String
Dim K() As Integer
Dim I, N, K As Integer
N = InputBox("Введетите количество элементов массива")
ReDim O(N) As String
ReDim K(N) As Integer
Debug.Print "Оборудование", "кол-во, шт."
For I = 1 To N
F(I) = InputBox("Введите наименование оборудования")
V(I) = InputBox("Введите кол-во, шт.")
Debug.Print O(I), K(I)
Next I
For I = 1 To N
K = K + K(I)
Next I
Debug.Print "Общие количество оборудования:";
End Sub
Проблема в том что не производится вывод данных в immediate окно! программа начинает быковать на 4,10,11,15 строчку!