NullReferenceException было необработанным VB.NET

Question

Я пытаюсь присвоить массиву запись, которая должна быть разбита на несколько элементов по причинам поиска.Например, если для критерия задано «Имя», выполните поиск соответствующего ключевого слова в элементе массива 0, поскольку именно там имя будет помещено после того, как текущая выбранная запись будет «Разделить»).

Источник для формы поиска:

Public Class frmSearch
    Dim arrayCurrentRecord(6) As String
    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        Me.DialogResult = DialogResult.Cancel
    End Sub

    Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
        'fill array with list box items
        Dim arraySearch(frmMain.numberOfRecords) As String
        For i = 0 To frmMain.numberOfRecords - 1
            arraySearch(i) = frmMain.lstListBox.Items(i)
        Next i

        If rbtnFirstName.Checked = True Then
            For i = 0 To UBound(arraySearch)
                arrayCurrentRecord = arraySearch(i).Split(" ")
                If InStr(arrayCurrentRecord(0), txtSearch.Text) = True Then
                    lstSearch.Items.Add(arraySearch(i))
                End If
            Next i
            MsgBox("search complete")
        End If
    End Sub
End Class

Answer 1

Изменение строки

If InStr(arrayCurrentRecord(0), txtSearch.Text) = True

на

If InStr(arrayCurrentRecord(0), txtSearch.Text)

решило проблему.

Answer 2

Изменение For i = 0 To UBound(arraySearch) на For i = 0 To UBound(arraySearch) - 1 устраняет проблему, но ничего не находит, просто говорит, что поиск завершен.