Определить, является ли введенная последовательность знакочередующейся

Sub m_1()
'Объявление массива (последовательности).
'Single означает, что в массиве могут быть как целые, так и дробные числа
Dim myArrya() As Single
'Integer означает, что в переменной i будут только целые числа
Dim i As Integer
Dim N As Single
Dim Знак As Integer
'Задание размера массива (последовательности).
'Т.е. задаём, сколько элементов будет содержаться в массиве
'InputBox инструмент для введения в переменные даннных
N = InputBox("Введите размер последовательности")
'Т.к. заранее не был известен размер массива, то задаём ей сейчас.
'ReDim используются для задания размера массива
'1 To - используется, чтобы порядковый номер первого элемента был 1
'(по умолчанию порядковый номер первого элемента массива равен нулю,
'что неудобно для непрограммиста)
ReDim myArray(1 To N)
'Заполнение массива данными
'For i ... Next i - цикл
For i = 1 To N
    myArray(i) = InputBox("Введите число для элемента последовательности")
Next i
'Анализ массива. Определяем, является ли он знакочередующимся.
'Помещаем в переменную Знак знак первого элемента массива.
'Затем будем сравнивать все элементы массива с переменной Знак.
'Sgn - инструмент VB для определения знака чисел.
'Если Sgn = - 1, то число отрицательное, если Sgn = 0, что число является нулём,
'если Sgn = 1, то число является положительным
Знак = Sgn(myArray(1))
'MsgBox - инструмент VB для вывода на монитор сообщений
'Если в элементе массива ноль, то
If Знак = 0 Then
    MsgBox "Это незнакочередующаяся последовательность"
    'Выход из программы
    Exit Sub
End If
For i = 2 To N
    If Sgn(myArray(i)) = Знак Then
        MsgBox "Это незнакочередующаяся последовательность"
        Exit Sub
    ElseIf Sgn(myArray(i)) = 0 Then
        MsgBox "Это незнакочередующаяся последовательность"
        Exit Sub
    Else
        Знак = Sgn(myArray(i))
    End If
Next i
MsgBox "Это знакочередующаяся последовательность"
End Sub