Написать программу для разбиение массива на две числовые п

Sub Examen()
    Dim mass As Variant
    Dim i As Integer, j As Integer, k As Integer
    Dim col As Integer
    Dim s1 As String
    Dim s2 As String
    col = Range("A1").End(xlToRight).Column
    mass = Range(Cells(1, 1), Cells(1, col))
    For i = 1 To col
        If mass(1, i) Mod 2 = 0 Then
            s1 = s1 & vbTab & mass(1, i)
            j = j + 1
        Else
            s2 = s2 & vbTab & mass(1, i)
            k = k + 1
        End If
    Next i
    If k > j Then
        MsgBox "Последовательность четных чисел: " & vbCrLf & s1 & vbCrLf & _
        "Последовательность нечетных чисел: " & vbCrLf & s2 & vbCrLf & _
        "Нечетных чисел больше"
    ElseIf k = j Then
        MsgBox "Последовательность четных чисел: " & vbCrLf & s1 & vbCrLf & _
        "Последовательность нечетных чисел: " & vbCrLf & s2 & vbCrLf & _
        "Последовательности одинаковой длины"
    Else
        MsgBox "Последовательность четных чисел: " & vbCrLf & s1 & vbCrLf & _
        "Последовательность нечетных чисел: " & vbCrLf & s2 & vbCrLf & _
        "Нечетных чисел больше"
    End If
End Sub