Работа с массивом не определенного размера ReDim Preserve

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        'выводит список в листбокс не перебирая по строкам, а весь сразу 
        If IO.File.Exists(fName) Then
            ListBox1.Items.AddRange(IO.File.ReadAllLines(fName, System.Text.Encoding.Default))
        End If
 
        Dim ww As Integer = 0  'используется для нумерации массива
        'забивка массива данными из файла для временного хранения
        Dim MasStrok() As String
        For Each test As String In File.ReadAllLines("D:\Test.txt")
            ReDim Preserve MasStrok(ww)
            MasStrok(ww) = (test)
            ww = ww + 1
            'MsgBox(test)  'использовал для проверки
        Next
 
        ww = 0
        ListBox1.Sorted = True
    End Sub
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        
        Dim aaa As String = TextBox1.Text & TextBox2.Text
        For Each aaa As String In MasStrok(10)  -----------------"в этой строчке указывает 
                                                    "В экземпляре объекта не задана ссылка на объек"
                                                      и массив оказывается пустым"
            
          If ToString() = MasStrok(ww) Then
                ww = ww + 1
                MsgBox("Запись уже имеется", MsgBoxStyle.Exclamation)
                Exit Sub
            Else
                ListBox1.Items.Add(struct.ToString)
                My.Computer.FileSystem.WriteAllText(fName, struct.ToString & vbCrLf, True)
                TextBox1.Clear() : TextBox2.Clear()
                ListBox1.Items.Clear()
            End If
        Next

MasStrok = File.ReadAllLines("D:\Test.txt")

ListBox1.Items.AddRange(MasStrok)