Visual Basic - Crear un arreglo dinámico, llénalo y diga cuantos números pares

Option Explicit

Dim Arr() As Integer

Dim i As Integer

Private Sub cmdAgregar_Click()

If Trim(txtNumero.Text) = "" Then

 MsgBox "Ingrese el numero", vbCritical + vbOKOnly, "Mensaje"

 txtNumero.Text = ""

 txtNumero.SetFocus

 Exit Sub

End If

ReDim Preserve Arr(i)

Arr(i) = txtNumero.Text

 List1.AddItem Arr(i)

 i = i + 1

 MsgBox "Ingreso realizado", vbInformation + vbOKCancel, "Mensaje"

 txtNumero.Text = ""

 txtNumero.SetFocus

End Sub

Private Sub cmdDeterminar_Click()

Dim j As Integer

Dim par As Integer

For j = 1 To j - 1

Next j

par = par + (i - 1)

MsgBox "PARES: " & par, vbInformation + vbOKCancel, "Mensaje"

 txtNumero.Text = ""

 txtNumero.SetFocus

End Sub

Private Sub cmdSalir_Click()

End

End Sub

If n Mod 2 = 0 Then

        MsgBox "par"

    Else

        MsgBox "impar"

    End If