В приведенном коде обнуляется массив

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim mass(,) As Double
Dim i As Integer = 0
Dim s As String = ""
Dim openfiledialog As New OpenFileDialog
openfiledialog.Title = "Выбор первого файла с данными"
Dim openfiledialog1 As New OpenFileDialog
openfiledialog1.Title = "Выбор второго файла с данными"
If openfiledialog.ShowDialog = Windows.Forms.DialogResult.OK Then
If openfiledialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
DataGridView1.Rows.Clear()
DataGridView2.Rows.Clear()
TextBox1.Text = "'" & openfiledialog.FileName & "' '" & openfiledialog1.FileName & "'"
FileOpen(1, openfiledialog.FileName, OpenMode.Input)
While Not EOF(1)
ReDim mass(i, 1)
Input(1, s)
mass(i, 0) = CDbl(s)
Input(1, s)
mass(i, 1) = CDbl(s)
DataGridView1.Rows.Add(CStr(mass(i, 0)), CStr(mass(i, 1)))
i = i + 1
End While
FileClose(1)
FileOpen(2, openfiledialog1.FileName, OpenMode.Input)
While Not EOF(2)
ReDim mass(i, 1)
Input(2, s)
mass(i, 0) = CDbl(s)
Input(2, s)
mass(i, 1) = CDbl(s)
DataGridView1.Rows.Add(CStr(mass(i, 0)), CStr(mass(i, 1)))
i = i + 1
End While
FileClose(2)
'До этого момента всё норм, всё правильно выводит, потом нужно отсортировать методом бинарных вставок:'
Dim lg, rg, c, k As Integer
Dim p1, p2 As Double
i = 2
While i <= mass.Length / 2 - 1
lg = 1
rg = i - 1
c = (lg + rg) \ 2
While lg <> c
If mass(c, 0) > mass(i, 0) Then
rg = c
Else
lg = c
End If
c = (lg + rg) \ 2
End While
If mass(lg, 0) < mass(i, 0) Then
If mass(i, 0) > mass(rg, 0) Then
lg = rg + 1
Else
lg = rg
End If
End If
k = i
p1 = mass(i, 0)
p2 = mass(i, 1)
While k > lg
mass(k, 0) = mass(k - 1, 0)
mass(k, 1) = mass(k - 1, 1)
k = k - 1
End While
mass(lg, 0) = p1
mass(lg, 1) = p2
i = i + 1
End While
For j = 0 To mass.Length / 2 - 1
DataGridView2.Rows.Add(CStr(mass(j, 0)), CStr(mass(j, 1)))
Next
'После сортировки возвращает во всех ячейках нули, программный код проверял на статическом массиве, сортировка работала отлично'
End If
End If
End Sub