Structure TestWords
    Dim intNumOfRec As Integer
    Dim intYear As Integer
    Dim intWeek As Integer
    Dim strWord1 As String
    Dim strClue1 As String
    Dim strWord2 As String
    Dim strClue2 As String
    Dim strWord3 As String
    Dim strClue3 As String
    Dim strWord4 As String
    Dim strClue4 As String
    Dim strWord5 As String
    Dim strClue5 As String
    Dim strWord6 As String
    Dim strClue6 As String
    Dim strWord7 As String
    Dim strClue7 As String
    Dim strWord8 As String
    Dim strClue8 As String
    Dim strWord9 As String
    Dim strClue9 As String
    Dim strWord10 As String
    Dim strClue10 As String
End Structure
Public Class frmSetTest
    Dim strMyFileName As String
    Dim mystreamreader As StreamReader
    Dim mystreamwriter As StreamWriter
    Dim intArraySize As Integer
    Dim StorageArray() As WordStructure
    Dim ListBoxArray() As WordStructure
    Dim ListBoxSecond() As WordStructure


Private Sub SavetoFile(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        Dim intSizeCheck As Integer
        Dim intExtraCheck As Integer
        Dim intWeekCatch As Integer
        Dim intYearCatch As Integer
        Dim WeeklyTest() As TestWords
        Dim strMyFileName As String
        Dim intNumOfRecs As String
        Dim intCounter As Integer

        If ListBoxSecond Is Nothing Then
            MsgBox("Please select 10 words.")
        Else
            intSizeCheck = ListBoxSecond.Length
        End If

        If intSizeCheck < 10 Then
            MsgBox("Please select 10 words.")
        ElseIf intSizeCheck > 10 Then
            intExtraCheck = intSizeCheck - 10
            MsgBox("Please remove " & intExtraCheck & " words.")
        End If

        intYearCatch = cmbYearSelect.Text
        Select Case cmbSelectWeek.Text
            Case Is = "1", "2", "3", "4", "5", "6", "7"
                intWeekCatch = cmbSelectWeek.Text
            Case Else
                MsgBox("Please select a valid year.")
                Exit Sub
        End Select


        strMyFileName = "weeklytest.txt"

        Dim mystreamreader As New StreamReader(strMyFileName)
        intNumOfRecs = mystreamreader.ReadLine
        ReDim Preserve WeeklyTest(intNumOfRecs)

        intCounter = 0
        Do Until mystreamreader.EndOfStream = True
            WeeklyTest(intCounter).intYear = mystreamreader.ReadLine
            WeeklyTest(intCounter).intWeek = mystreamreader.ReadLine
            WeeklyTest(intCounter).strWord1 = mystreamreader.ReadLine
            WeeklyTest(intCounter).strClue1 = mystreamreader.ReadLine
            WeeklyTest(intCounter).strWord2 = mystreamreader.ReadLine
            WeeklyTest(intCounter).strClue2 = mystreamreader.ReadLine
            WeeklyTest(intCounter).strWord3 = mystreamreader.ReadLine
            WeeklyTest(intCounter).strClue3 = mystreamreader.ReadLine
            WeeklyTest(intCounter).strWord4 = mystreamreader.ReadLine
            WeeklyTest(intCounter).strClue4 = mystreamreader.ReadLine
            WeeklyTest(intCounter).strWord5 = mystreamreader.ReadLine
            WeeklyTest(intCounter).strClue5 = mystreamreader.ReadLine
            WeeklyTest(intCounter).strWord6 = mystreamreader.ReadLine
            WeeklyTest(intCounter).strClue6 = mystreamreader.ReadLine
            WeeklyTest(intCounter).strWord7 = mystreamreader.ReadLine
            WeeklyTest(intCounter).strClue7 = mystreamreader.ReadLine
            WeeklyTest(intCounter).strWord8 = mystreamreader.ReadLine
            WeeklyTest(intCounter).strClue8 = mystreamreader.ReadLine
            WeeklyTest(intCounter).strWord9 = mystreamreader.ReadLine
            WeeklyTest(intCounter).strClue9 = mystreamreader.ReadLine
            WeeklyTest(intCounter).strWord10 = mystreamreader.ReadLine
            WeeklyTest(intCounter).strClue10 = mystreamreader.ReadLine
            intCounter = intCounter + 1
        Loop
        mystreamreader.Close()

        intNumOfRecs = WeeklyTest.Length + 22

        ReDim Preserve WeeklyTest(intNumOfRecs)
        WeeklyTest(intNumOfRecs).intYear = intYearCatch
        WeeklyTest(intNumOfRecs).intWeek = intWeekCatch
        WeeklyTest(intNumOfRecs).strWord1 = ListBoxSecond(0).strWord
        WeeklyTest(intNumOfRecs).strClue1 = ListBoxSecond(0).strClue
        WeeklyTest(intNumOfRecs).strWord2 = ListBoxSecond(1).strWord
        WeeklyTest(intNumOfRecs).strClue2 = ListBoxSecond(1).strClue
        WeeklyTest(intNumOfRecs).strWord3 = ListBoxSecond(2).strWord
        WeeklyTest(intNumOfRecs).strClue3 = ListBoxSecond(2).strClue
        WeeklyTest(intNumOfRecs).strWord4 = ListBoxSecond(3).strWord
        WeeklyTest(intNumOfRecs).strClue4 = ListBoxSecond(3).strClue
        WeeklyTest(intNumOfRecs).strWord5 = ListBoxSecond(4).strWord
        WeeklyTest(intNumOfRecs).strClue5 = ListBoxSecond(4).strClue
        WeeklyTest(intNumOfRecs).strWord6 = ListBoxSecond(5).strWord
        WeeklyTest(intNumOfRecs).strClue6 = ListBoxSecond(5).strClue
        WeeklyTest(intNumOfRecs).strWord7 = ListBoxSecond(6).strWord
        WeeklyTest(intNumOfRecs).strClue7 = ListBoxSecond(6).strClue
        WeeklyTest(intNumOfRecs).strWord8 = ListBoxSecond(7).strWord
        WeeklyTest(intNumOfRecs).strClue8 = ListBoxSecond(7).strClue
        WeeklyTest(intNumOfRecs).strWord9 = ListBoxSecond(8).strWord
        WeeklyTest(intNumOfRecs).strClue9 = ListBoxSecond(8).strClue
        WeeklyTest(intNumOfRecs).strWord10 = ListBoxSecond(9).strWord
        WeeklyTest(intNumOfRecs).strClue10 = ListBoxSecond(9).strClue

        Dim mystreamwriter As New StreamWriter(strMyFileName)
        'mystreamwriter.WriteLine(WeeklyTest.Length)


        'mystreamwriter.WriteLine(WeeklyTest(intCounter).intYear)
        'mystreamwriter.WriteLine(WeeklyTest(intCounter).intWeek)
        'mystreamwriter.WriteLine(WeeklyTest(intCounter).strWord1)
        'mystreamwriter.WriteLine(WeeklyTest(intCounter).strClue1)
        'mystreamwriter.WriteLine(WeeklyTest(intCounter).strWord2)
        'mystreamwriter.WriteLine(WeeklyTest(intCounter).strClue2)
        'mystreamwriter.WriteLine(WeeklyTest(intCounter).strWord3)
        'mystreamwriter.WriteLine(WeeklyTest(intCounter).strClue3)
        'mystreamwriter.WriteLine(WeeklyTest(intCounter).strWord4)
        'mystreamwriter.WriteLine(WeeklyTest(intCounter).strClue4)
        'mystreamwriter.WriteLine(WeeklyTest(intCounter).strWord5)
        'mystreamwriter.WriteLine(WeeklyTest(intCounter).strClue5)
        'mystreamwriter.WriteLine(WeeklyTest(intCounter).strWord6)
        'mystreamwriter.WriteLine(WeeklyTest(intCounter).strClue6)
        'mystreamwriter.WriteLine(WeeklyTest(intCounter).strWord7)
        'mystreamwriter.WriteLine(WeeklyTest(intCounter).strClue7)
        'mystreamwriter.WriteLine(WeeklyTest(intCounter).strWord8)
        'mystreamwriter.WriteLine(WeeklyTest(intCounter).strClue8)

    End Sub