Определить количество четных элементов массивов X(30) и переписать их в массив Y

Option Explicit
Dim X(30) As Integer ' объявляем массив Х
Dim Y() As Integer   ' объявляем массив У(пока без размера)
Dim i As Integer     ' объявляем переменные
Dim j As Integer     '
Private Sub Command1_Click()
For i = 1 To 30 ' Цикл для заполнения массива Х, сравнения значений, заполнения массива У, вывода результатов
 X(i) = InputBox("Введите элемента X" + Str(i)) ' Заполнение массива Х (вручную)
  If X(i) Mod 2 = 0 Then ' если элемент массива Х чётный, то
   j = j + 1  ' увеличиваем кол-во эл-тов мас-ва У на 1
   ReDim Y(j)  ' переписываем размер массива У
   Y(j) = X(i) ' присваиваем значение чётного элемента массива Х - элементу массива У
   Print Y(j)  ' выводим результат на форму
  End If
 Next
Print "Количество элементов массива Y ="; j
End Sub

Option Explicit
Dim X(30) As Integer ' объявляем массив Х
Dim Y() As Integer   ' объявляем массив У(пока без размера)
Dim i As Integer     ' объявляем переменные
Dim j As Integer     '
Private Sub Command1_Click()
For i = 1 To 30 ' Цикл для заполнения массива Х, сравнения значений, заполнения массива У, вывода результатов
 X(i) = InputBox("Введите элемента X" + Str(i)) ' Заполнение массива Х (вручную)
  If X(i) Mod 2 = 0 Then ' если элемент массива Х чётный, то
   j = j + 1  ' увеличиваем кол-во эл-тов мас-ва У на 1
   ReDim Preserve Y(j)  ' переписываем размер массива У
   Y(j) = X(i) ' присваиваем значение чётного элемента массива Х - элементу массива У
  End If
 Next
 Print "Количество элементов массива Y ="; j
 For i = 1 To j
  Print Y(i)  ' выводим результат на форму
 Next
End Sub

Dim X(1 to 30) As Integer ' объявляем массив Х
   ReDim Preserve Y(1 to j)  ' переписываем размер массива У