Ошибка "Ссылка на объект не указывает на экземпляр объекта." - Visual Basic .NET

Формулировка задачи:

Всем привет! Скорее всего глупый вопрос, но решительно не могу понять в чем может быть дело. Из формы викинул все лишнее, оставил только проблемный кусок, локализовал, так сказать, проблему. Собственно проблема: не могу присвоить нулевому элементу массива определенное значение:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim arr_sum() As Integer
        Dim sum As Integer
        Dim k As Integer
        
        k = 0
        sum = -11
        arr_sum(k) = sum
    End Sub

Решение задачи: «Ошибка "Ссылка на объект не указывает на экземпляр объекта."»

textual
                            Листинг программы 
                        

                            Imports System.IO
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.Show()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim MyFileStream, MyFileStream2 As FileStream
        Dim MyBinaryReader As BinaryReader
        Dim MyBinaryWriter As BinaryWriter
        Dim BufText As String
        Dim arr(1000) As String
        Dim arr_sum(1000) As Integer
        Dim sum As Integer 'сюда будем записывать суммы отрицательных чисел массива
        Dim k As Integer
        'Try
        MyFileStream = New FileStream("Binary_1.bin", FileMode.Open)
        MyBinaryReader = New BinaryReader(MyFileStream)
        TextBox1.Clear()
        Erase arr_sum
        k = 0
        While True
            If MyBinaryReader.PeekChar <> -1 Then
                BufText = Trim(MyBinaryReader.ReadString)
                TextBox1.Text = TextBox1.Text + BufText + vbCrLf
                Erase arr
                arr = Split(BufText)
                sum = 0
                For i As Integer = 0 To UBound(arr)
                    If arr(i) < 0 Then
                        sum += arr(i)
                    End If
                Next
                MsgBox(sum)
                arr_sum(k) = sum
                k += 1
                MsgBox(sum)
            Else
                Exit While
            End If
        End While
        'Catch ex As Exception
        'MessageBox.Show("Ошибка при чтении файла Binary_1.bin", "ОШИБКА", _
        'MessageBoxButtons.OK, MessageBoxIcon.Error)
        'Finally
        MyBinaryReader.Close()
        MyFileStream.Close()
        'End Try
 
        'Try
        MyFileStream2 = New FileStream("Binary_2.bin", FileMode.Create)
        MyBinaryWriter = New BinaryWriter(MyFileStream2)
        For i As Integer = 0 To UBound(arr_sum)
            MyFileStream.Position = MyFileStream.Length
            MyBinaryWriter.Write(arr_sum(i))
        Next
        'Catch ex As Exception
        '    MessageBox.Show("Ошибка записи файла Binary_2.bin", "ОШИБКА", _
        '    MessageBoxButtons.OK, MessageBoxIcon.Error)
        'End Try
 
 
    End Sub
End Class
                        