Найти сумму чисел, введенных после первого положительного - VB

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

код нужен)))помогите пожалуйста,знаю,что вам это расплюнуть... 1. Вводится последовательность отличных от нуля целых чисел. Найти сумму чисел, введенных после первого положительного. Сообщить о любой причине отсутствия ответа. 2. Тестировали N-учеников с помощью К-тестов. За каждый тест выставлялась оценка от 0 до 10 баллов. Определить наиболее часто встречающуюся оценку, если таких несколько, напечатать их все.

Решение задачи: «Найти сумму чисел, введенных после первого положительного»

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

                            Private Sub Command1_Click()
Dim a() As Single, sum As Single      'Объявляем переменные
Dim N As Byte
Dim flag As Boolean          'Переменная "правда/ложь",которая сообщит нам о введённом положительном
flag = False    'делаем её "ложь"
N = InputBox("Razmernost' posle dovatel'nosti") 'Вводим кол-во элементов и...
ReDim a(1 To N) As Single            'Переобъявляем массив
For i = 1 To N    
RM1:           'метка
a(i) = Val(InputBox("Vvedite element : " & i))   'Вводим A i-ое , если будут введены символы,то оператор Val возвратит 0
If a(i) = 0 Then     'И если а(i) будет 0 то...
MsgBox ("Vvedite zna4enie, otli4noe ot 0!")   'Выведем предупреждение 
GoTo RM1        'И вернёмся к метке
End If
If flag = True Then sum = sum + a(i)     'Если flag-истина начинаем считать сумму
If a(i) > 0 Then flag = True     
Next i
MsgBox sum
End Sub
                        