Массив: Определить и напечатать разность между количеством отрицательных и положительных элементов...

Option Explicit
Option Base 1 'нумерация элементов массива идёт с 1
 
Sub posVSneg()
Const Che = 2 'рассмотрим чётные номера (Che = 1, если захотим нечётные)
    Dim D As Variant, j As Byte 'переменные для массива и его индексов
    Dim Npos As Long 'количество положительных
    Dim Nneg As Long 'количество отрицательных
    Dim absent As Boolean 'отсутствие тех и других (все нулевые), когда absent = True
 
'D = Array(-3, 9, -4, 8, 0, 0, -4)
D = Array(Fix(5 * Rnd - 2), Fix(5 * Rnd - 2), Fix(5 * Rnd - 2), Fix(5 * Rnd - 2), _
          Fix(5 * Rnd - 2), Fix(5 * Rnd - 2), Fix(5 * Rnd - 2))
 
    For j = Che To UBound(D) Step 2
        If D(j) < 0 Then Nneg = Nneg + 1 'считаем отрицательные
        If D(j) > 0 Then Npos = Npos + 1 'считаем положительные
    Next
    
    If Npos = 0 And Nneg = 0 Then absent = True
 
If MsgBox("Массив: {" & Join(D, "; ") & "}" & vbCr & "Отрицательных (" & Nneg & ") " & _
    "элементов на " & IIf(Che = 1, "не", "") & "чётных местах" & vbCr & "в данном массиве " & _
    IIf(Nneg > Npos, "больше, чем", _
    IIf(Npos = Nneg, IIf(absent, "нет, как и", "столько же, сколько и"), "меньше, чем")) & _
    " положительных (" & Npos & ")." & vbCr & vbCr & _
    "Ответ: разность количеств = " & Nneg - Npos & ".", vbOKCancel) = vbCancel Then Exit Sub
    posVSneg
End Sub