«Сожмите» массив, выбросив из него каждый второй элемент

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim A() As Integer
        Dim n As Integer
        Dim i As Integer
        Dim Str1 As String
        Dim Str2 As String
        n = InputBox("Введите число элементов массива:", "Определение размера")
        ReDim A(n)
        Str1 = ""
        Str2 = ""
 
        For i = 1 To n
            A(i) = Val(InputBox("Введите   " & i & "-ый элемент массива", "Заполнение массива"))
            Str1 = Str1 & A(i) & " "
        Next
 
           'Сжатие массива
  If i Mod 2 = 0 Then
                n = 1
                i = i - n
            End If
 
            Str2 = Str2 & A(i) & " "
            MsgBox("Исходный массив: " & Str1 & Chr(13) & "Сжатый массив: " & Str2)
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
End Class

ReDim A(n)

ReDim A(n - 1)

 Dim ArrayList() As Integer = {}
        Dim i As Integer = 0
        Dim Str1, Str2 As String
        Dim n = InputBox("Введите число элементов массива:", "Определение размера")
        ReDim ArrayList(n - 1)
        For i = 0 To ArrayList.Length - 1
            ArrayList(i) = InputBox("Введите " & (i + 1) & "-ый элемент массива", "Заполнение массива")
            Str1 &= ArrayList(i) & " "
        Next
 
        'Сжатие массива
 
        For i = 0 To ArrayList.Length - 1
 
            If i Mod 2 = 0 Then
                Str2 &= ArrayList(i) & " "
            End If
 
        Next
        MsgBox("Исходный массив: " & Str1 & Chr(13) & "Сжатый массив: " & Str2)

Dim массив() As Integer = {}
MsgBox(массив.Length)

Dim массив() As Integer
MsgBox(массив.Length)