Все четные элементы целочисленного элемента K поместить в массив L, а нечетные в массив M

Sub OnlyForRussia()
Dim i&, j&, elt
   ActiveSheet.Cells.Delete
   ReDim mARR(1 To InputBox("Input numbers of rows", , 8), _
            1 To InputBox("Input numbers of columns", , 5)): Randomize
   For i = LBound(mARR, 1) To UBound(mARR, 1)
      For j = LBound(mARR, 2) To UBound(mARR, 2):  mARR(i, j) = Int(Rnd * 100): Next 'j
   Next 'i
   [b2].Value = "General Array:"
   With Cells(Rows.Count, "b").End(xlUp)
      .Offset(1, 0).Resize(UBound(mARR, 1), UBound(mARR, 2)).Value = mARR
   End With
   With CreateObject("scripting.dictionary")
      For Each elt In mARR
         If CLng(elt) Mod 2 <> 0 Then
            If Not .exists(1) Then .Item(1) = elt Else: .Item(1) = .Item(1) & ";;;" & CLng(elt)
               Else
                  If Not .exists(2) Then .Item(2) = CLng(elt) Else: .Item(2) = .Item(2) & ";;;" & CLng(elt)
         End If
      Next
'--Results--On--Sheet------------------------------------
      For i = 1 To 2:  elt = Split(.Item(i), ";;;")
         With Cells(Rows.Count, "b").End(xlUp)
            .Offset(1, 0).Value = IIf(i = 1, "Array of odd numbers:", "Array of paired numbers")
            .Offset(2, 0).Resize(1, UBound(elt) + 1).Value = elt
         End With
         MsgBox IIf(i = 1, "Num. odd in array:" & Space(2) & UBound(elt) + 1, _
                                 "Num. paired in array:" & Space(2) & UBound(elt) + 1)
      Next 'i
'==End==with==Result
   End With
End Sub