Option Explicit
Dim libraryArray() As String ' Stores Library Contents
Dim i As Integer, j As Integer, m As Integer, l As Integer ' Reserved for FOR LOOPS
Dim helpTopic As String ' Carries the help topic string used for the mini help
Dim addFlag As Boolean, exitFlag As Boolean, saveFlag As Boolean, deleteFlag As Boolean ' Flags used for adding an entry, deleting an entry, and exiting the program

Private Sub displayRefresh(arrayNumber As Integer)
    Dim p As Integer
    txtDisplay.Text = ""
    For p = 0 To arrayNumber Step 1
        If p = 0 Then
        Else
            txtDisplay.Text = txtDisplay.Text + libraryArray(p, 0) + ", " + libraryArray(p, 1) + ", " + libraryArray(p, 2) + vbNewLine
        End If
    Next p
End Sub

Private Sub search(searchType As Integer)
    Dim h As Integer
    txtDisplay.Text = ""
    For h = 0 To i Step 1
        If h = 0 Then
        Else
            If txtSearch.Text = libraryArray(h, searchType) Then
                txtDisplay.Text = txtDisplay.Text + libraryArray(h, 0) + ", " + libraryArray(h, 1) + ", " + libraryArray(h, 2) + vbNewLine
            End If
        End If
    Next h
End Sub

Private Sub btnAdd_Click()
    addFlag = True
    For j = 0 To i Step 1
        If j = 0 Then
            If txtAddAlbum.Text = libraryArray(j, 0) And txtAddArtist.Text = libraryArray(j, 1) Then
                MsgBox ("Entry allready exists.")
                addFlag = False
            ElseIf txtAddNumber.Text = libraryArray(j, 2) Then
                MsgBox ("ID# in use.")
                addFlag = False
            End If
        End If
    Next j
    If addFlag = True Then
        i = i + 1
        ReDim libraryArray(0 To i, 2)
        libraryArray(i, 0) = txtAddAlbum.Text
        libraryArray(i, 1) = txtAddArtist.Text
        libraryArray(i, 2) = txtAddNumber.Text
    End If
    displayRefresh (i)
End Sub

Private Sub btnAlbumSearch_Click()
    search (0)
End Sub

Private Sub btnArtistSearch_Click()
    search (1)
End Sub

Private Sub btnDelete_Click() ' Deletes an entry inside the file and rewrites the file

End Sub

Private Sub btnDisplayReset_Click() ' Resets the display so it will show all enteries inside the file
    displayRefresh (i)
End Sub

Private Sub btnExit_Click() ' Used to exit the program
    Open "H:\ICS 3MI\Visual Basic\Final Project\libraryFile.txt" For Output As 1
    For j = 1 To i Step 1
        Write #1, libraryArray(j, 0), libraryArray(j, 1), libraryArray(j, 2)
    Next j
    Close #1
    End
End Sub

Private Sub btnHelp_Click() ' Makes the mini help file pop up
    helpTopic = InputBox("Enter the keyword for the help you require. 'sort' will give you help for sorting your data. 'add' will give you help for adding new data. 'search' will give you help with the search function. 'delete' will tell you how to delete an entry. 'display' will tell you about the Display All button.")
    If helpTopic = "sort" Then
        MsgBox ("Clicking on Alpha - Album will sort the records in alphabetical order by their album names, Alpha - Author will sort it in alphabetical order by the names of the band, while ID # will sort by the ID numbers, from lowest to highest.")
    ElseIf helpTopic = "add" Then
        MsgBox ("To add new data, fill in the required headings above the button (Album, Author, and ID #) and click on the Add button. If one or more of the fields are incorrect, you wil have to follow the prompt to correct it. The program will not add an album that is allready in the library.")
    ElseIf helpTopic = "search" Then
        MsgBox ("Type in the full or partial name of the album or artist that you are looking for, or the ID number. add a * before your search word to enable a search for partial matches (ex. *Alex).")
    ElseIf helpTopic = "delete" Then
        MsgBox ("Type in the ID# of the item you wish to delete, then hit the delete button, a promp will ask you if you really want to do this. NOTE: Not useable at the moment.")
    ElseIf helpTopic = "display" Then
        MsgBox ("This button will display all enteries inside the file. Use this button after a search to re-display all the available enteries.")
    Else
        MsgBox ("Invalid keyword.")
    End If
End Sub

Private Sub btnNumberSearch_Click() ' Searches for en entry using the given number entered
    search (2)
End Sub

Private Sub Form_Load() ' Loads file to be used by the program and initializes display
    Open "H:\ICS 3MI\Visual Basic\Final Project\libraryFile.txt" For Input As 1
    Do Until EOF(1) ' Exits file when it reaches the end of it
        i = i + 1 ' Adds one to itself, used with the ReDim function so it can accept more enteries
        ReDim libraryArray(i, 2) ' Reset libraryArray so it can accept more enteries
        Input #1, libraryArray(i, 0), libraryArray(i, 1), libraryArray(i, 2)
    Loop
    Close #1
    displayRefresh (i)
    txtAddNumber.MaxLength = 3
    txtDelete.MaxLength = 3
End Sub

ReDim Preserve libraryArray(i, 2)

Type library
    album as string
    artist as string
    idnumber as integer
End Type

Dim libraryArray() as library

ReDim Preserve libraryArray(i) ' Something like this?