Подсчет количества отрицательных (положительных, нулевых, кратных k) элементов массива

Option Explicit
 
Sub LuxuryIdentity()
   Dim Массив(1 To 20)   ' создан массив с двадцатью элементами (пока пустыми)
   Dim l As Long                 ' создана переменная, она будет использована в качестве итератора
   Dim rez(0 To 3) As Long       ' массив из 4 элементов, в него будут записаны количества
      ' отрицательных, положительных и равных нулю)
   rez(0) = InputBox("Введите значение для k", "введите целое число")
   For l = 1 To 20
      Массив(l) = CLng(Rnd() * 100 - Rnd() * 100)
      ' С помощью цикла For массив заполнен случайными числами, отрицательными и
      ' положительными от -100 до +100
        If Массив(l) Mod rez(0) = 0 Then rez(1) = rez(1) + 1 ' подсчёт кратных k
        If Массив(l) = 0 Then rez(2) = rez(2) + 1 ' подсчет равных нулю
        If Массив(l) < 0 Then rez(3) = rez(3) + 1 ' подсчёт отрицательных
   Next
   MsgBox rez(1) & " - число элементов, кратных k (k = " & rez(0) & ")" & vbNewLine _
   & rez(2) & " - количество элементов массива, равных нулю" & vbNewLine _
   & rez(3) & " - количество отрицательных элементов" & vbNewLine & Join(Массив, ", ")
End Sub