Сколько элементов одного знака находится в конце челочисленного массива

Private Sub Command1_Click()
Dim n As Integer
n = InputBox("N")
If n Mod 2 = 0 Then MsgBox ("4etnoe") Else MsgBox ("Ne4etnoe")
End Sub

Private Sub Command1_Click()
Dim n As Integer, a() As Single
Dim count As Byte, znak
n = InputBox("N")
ReDim a(1 To n)
answer = ""
For i = 1 To n
a(i) = Int(100 * Rnd - 50)
answer = answer & a(i) & Space(3)
Next i
MsgBox answer
If a(n) > 0 Then
For i = n To 1 Step -1
If a(i) > 0 Then
count = count + 1
Else
MsgBox count & " polozhit. elementov"
Exit Sub
End If
Next i
Else:
For i = n To 1 Step -1
If a(i) < 0 Then
count = count + 1
Else
MsgBox count & " otrizatel'nix. elementov"
Exit Sub
End If
Next i
End If
count = 0
End Sub

MsgBox IIf(InputBox("N:") And 1, "Нечетное", "Четное")

Private Sub Command1_Click()
Dim n As Integer, a() As Single, k As Integer
 
n = InputBox("N")
ReDim a(1 To n)
answer = ""
For i = 1 To n
a(i) = Int(100 * Rnd - 50)
answer = answer & a(i) & Space(3)
Next i
k = 1
For i = n To 1 Step -1
If a(i) * a(i - 1) > 0 Then
k = k + 1
Else
MsgBox answer & vbCrLf & "N :  " & k & "   znak: " & Sgn(a(n))
Exit Sub
End If
Next i
End Sub