Заполнение массива InputBox - VB

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

Вредный препод не хочет ставить 4 за зачет по РиэАИС. Буду очень благодарна за помощь, так как в информатике не сильна... Заполните массив из десяти целых чисел положительными числами через поле ввода InputBox (используйте цикл For…Next). Если пользователь случайно ввел отрицательное значение или пустое, то об этом должно выдаваться сообщение и происходить выход из цикла. Если все числа, введенные пользователем положительные, то процедура должна подсчитать их сумму и вывести ее на экран.

Решение задачи: «Заполнение массива InputBox»

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

                            Option Explicit
Dim sum As Integer, num As Integer
 
Private Sub Form_Load()
    Dim i As Integer
    On Error GoTo err
    sum = 0
    For i = 1 To 10
        num = InputBox("введите число")
        If (num <= 0) Then GoTo err
        sum = sum + num
    Next i
    MsgBox ("сумма = " + CStr(sum))
    End
    'Exit Sub
err:
    MsgBox ("некорректное число")
    End
End Sub
                        