Выяснить, какое число встречается раньше — положительное или отрицательное - VBA

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

Здравствуйте,помогите пожалуйста написать код к задаче: Дана последовательность целых чисел a1, a2, ..., an. Выяснить, какое число встречается раньше — положительное или отрицательное.

Решение задачи: «Выяснить, какое число встречается раньше — положительное или отрицательное»

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

                            Sub m_2()
'Создание на пластинке оперативной памяти компьютера поименованной области (массива) myArray.
'Integer означает, что в массиве могут быть только целые числа (недробные).
'1 To - используется, чтобы порядковый номер первого элемента массива был 1,
'так удобнее непрограммистам (по умолчанию порядковый номер первого элемента массива ноль).
Dim myArray(1 To 10) As Integer
'Создание на пластинке оперативной памяти компьютера поименованной области (переменной) i.
Dim i As Integer
'Заполнение массива случайными числами. Я выберу по своему усмотрению диапазон от -50 до +50.
'For i ... To ... Next - называется циклом.
For i = 1 To 10
    myArray(i) = (50 - (-50) + 1) * Rnd + (-50)
Next i
'Просматриваем элементы массива, как только будет найден элемент,
'отвечающий поставленной задаче, выведем сообщение и выйдем из программы.
For i = 1 To 10
    'If ... Then ... ElseIf ... End If - используется для выбора действия.
    If myArray(i) > 0 Then
        'MsgBox - инструмент VBA для вывода на монитор информации.
        MsgBox "Раньше встречается положительное число"
        'Выход из кода.
        Exit Sub
    ElseIf myArray(i) < 0 Then
        MsgBox "Раньше встречается отрицательное число"
        Exit Sub
    End If
Next i
MsgBox "В последовательности только нули"
End Sub
                        