Private Sub btnTitle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTitle.Click
        Dim strSearchString As String
        Dim blnFound As Boolean
        Dim strATitle As String

        'Initialize boolean variable to false
        blnFound = False

        'Validate input in title textbox
        If txtTitle.Text = "" Then
            txtTitle.Text = InputBox("Please enter a title.", "Title required")
            Exit Sub
        End If

        'Get input value
        strSearchString = txtTitle.Text

        'Search array and display all matches
        For Each strATitle In strTitle
            If InStr(UCase(strATitle), UCase(strSearchString)) > 0 Then
                lstBooks.Items.Add(strATitle)
                blnFound = True
            End If
        Next

        'Handle No Match situation
        If Not blnFound Then
            MsgBox("No match found.  Please try again.", MsgBoxStyle.Exclamation, "No match found")
            txtTitle.Text = ""
            txtTitle.Focus()
        End If

    End Sub

Dim strISBN() As String
    Dim strAuthor() As String
    Dim strTitle() As String
    Dim decPrice() As Decimal
    Dim strSection() As String
    Dim intNumRecords As Integer

Private Sub frmBookLocator_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Declare variables
        Dim strLine As String
        Dim strFileName As String

        'Declare array to hold elements of a line of data
        Dim strFields() As String

        'Declare variable that is the delimiter
        Dim chrDelimiter As Char = ","

        'Define file name
        strFileName = CurDir() & "\booklist.txt"

        'Declare instance of stream reader and assign it to process the input file
        Dim srdReadFile As System.IO.StreamReader = New System.IO.StreamReader(strFileName)

        'Loop to input and process file
        Do Until srdReadFile.Peek - 1
            'Resize program arrays
            ReDim Preserve strISBN(intNumRecords)
            ReDim Preserve strAuthor(intNumRecords)
            ReDim Preserve strTitle(intNumRecords)
            ReDim Preserve decPrice(intNumRecords)
            ReDim Preserve strSection(intNumRecords)

            'Read a line from file
            strLine = srdReadFile.ReadLine()

            strFields = strLine.Split(chrDelimiter)

            'Put each piece into correct program array
            strISBN(intNumRecords) = strFields(0)
            strAuthor(intNumRecords) = strFields(1)
            strTitle(intNumRecords) = strFields(2)
            decPrice(intNumRecords) = strFields(3)
            strSection(intNumRecords) = strFields(4)

            'Increment record counter
            intNumRecords = intNumRecords + 1

        Loop

        'Close the file
        FileClose()

        'Display message declaring arrays loaded
        MsgBox("Arrays have been loaded.", MsgBoxStyle.OKOnly, "Array load complete")

    End Sub