Public Class setquestions
    Dim tobechanged As String

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ListBox1.Text = "" Then
            MsgBox("Please Select a Set of Questions to edit")
        ElseIf ListBox1.Text = "Maths" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Maths.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            Label1.Show()
            Label2.Show()
            Label3.Show()
            Label4.Show()
            Label5.Show()
            Label6.Show()
            Label7.Show()
            Label8.Show()
            Label9.Show()
            Label10.Show()
            Label11.Show()
            Label12.Show()
            Label13.Show()
            Label14.Show()
            Label15.Show()
            Label16.Show()
            Label17.Show()
            Label18.Show()
            Label19.Show()
            Label20.Show()
            Label21.Show()
            q1.Show()
            q2.Show()
            q3.Show()
            q4.Show()
            q5.Show()
            q5.Show()
            q6.Show()
            q7.Show()
            q8.Show()
            q9.Show()
            q10.Show()
            a1.Show()
            a2.Show()
            a3.Show()
            a4.Show()
            a5.Show()
            a6.Show()
            a7.Show()
            a8.Show()
            a9.Show()
            a10.Show()
            q1.Text = oSheet.cells(1, 2).value
            q2.Text = oSheet.cells(1, 3).value
            q3.Text = oSheet.cells(1, 4).value
            q4.Text = oSheet.cells(1, 5).value
            q5.Text = oSheet.cells(1, 6).value
            q6.Text = oSheet.cells(1, 7).value
            q7.Text = oSheet.cells(1, 8).value
            q8.Text = oSheet.cells(1, 9).value
            q9.Text = oSheet.cells(1, 10).value
            q10.Text = oSheet.cells(1, 11).value
            a1.Text = oSheet.cells(2, 2).value
            a2.Text = oSheet.cells(2, 3).value
            a3.Text = oSheet.cells(2, 4).value
            a4.Text = oSheet.cells(2, 5).value
            a5.Text = oSheet.cells(2, 6).value
            a6.Text = oSheet.cells(2, 7).value
            a7.Text = oSheet.cells(2, 8).value
            a8.Text = oSheet.cells(2, 9).value
            a9.Text = oSheet.cells(2, 10).value
            a10.Text = oSheet.cells(2, 11).value
            oWorkbook.save()
            oExcel.quit()
        End If
    End Sub

    Private Sub setquestions_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Label26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles a7.Click

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If ListBox1.Text = "" Then
            MsgBox("Please Select a Set of Questions to edit")
        ElseIf ListBox1.Text = "Maths" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Maths.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            Label1.Show()
            Label2.Show()
            Label3.Show()
            Label4.Show()
            Label5.Show()
            Label6.Show()
            Label7.Show()
            Label8.Show()
            Label9.Show()
            Label10.Show()
            Label11.Show()
            Label12.Show()
            Label13.Show()
            Label14.Show()
            Label15.Show()
            Label16.Show()
            Label17.Show()
            Label18.Show()
            Label19.Show()
            Label20.Show()
            Label21.Show()
            q1.Show()
            q2.Show()
            q3.Show()
            q4.Show()
            q5.Show()
            q5.Show()
            q6.Show()
            q7.Show()
            q8.Show()
            q9.Show()
            q10.Show()
            a1.Show()
            a2.Show()
            a3.Show()
            a4.Show()
            a5.Show()
            a6.Show()
            a7.Show()
            a8.Show()
            a9.Show()
            a10.Show()
            TextBox1.Show()
            TextBox2.Show()
            TextBox3.Show()
            TextBox4.Show()
            TextBox5.Show()
            TextBox6.Show()
            TextBox8.Show()
            TextBox7.Show()
            TextBox9.Show()
            TextBox10.Show()
            TextBox11.Show()
            TextBox12.Show()
            TextBox13.Show()
            TextBox14.Show()
            TextBox15.Show()
            TextBox16.Show()
            TextBox17.Show()
            TextBox18.Show()
            TextBox19.Show()
            TextBox20.Show()
            Button3.Show()
            Button4.Show()
            Button5.Show()
            Button6.Show()
            Button7.Show()
            Button8.Show()
            Button9.Show()
            Button10.Show()
            Button11.Show()
            Button12.Show()
            Button13.Show()
            Button14.Show()
            Button15.Show()
            Button16.Show()
            Button17.Show()
            Button18.Show()
            Button19.Show()
            Button20.Show()
            Button21.Show()
            Button22.Show()
            q1.Text = oSheet.cells(1, 2).value
            q2.Text = oSheet.cells(1, 3).value
            q3.Text = oSheet.cells(1, 4).value
            q4.Text = oSheet.cells(1, 5).value
            q5.Text = oSheet.cells(1, 6).value
            q6.Text = oSheet.cells(1, 7).value
            q7.Text = oSheet.cells(1, 8).value
            q8.Text = oSheet.cells(1, 9).value
            q9.Text = oSheet.cells(1, 10).value
            q10.Text = oSheet.cells(1, 11).value
            a1.Text = oSheet.cells(2, 2).value
            a2.Text = oSheet.cells(2, 3).value
            a3.Text = oSheet.cells(2, 4).value
            a4.Text = oSheet.cells(2, 5).value
            a5.Text = oSheet.cells(2, 6).value
            a6.Text = oSheet.cells(2, 7).value
            a7.Text = oSheet.cells(2, 8).value
            a8.Text = oSheet.cells(2, 9).value
            a9.Text = oSheet.cells(2, 10).value
            a10.Text = oSheet.cells(2, 11).value
            Label22.Text = ListBox1.Text
            oWorkbook.save()
            oExcel.quit()
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If Label22.Text = "Maths" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Maths.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            tobechanged = TextBox1.Text
            oSheet.cells(1, 2).value = TextBox1.Text
            MsgBox("The Question has been changed! Please remember to change the answer aswell!")
            oWorkbook.save()
            oExcel.quit()
            TextBox1.Text = ""

        ElseIf Label22.Text = "english" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6English.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(1, 2).value = TextBox1.Text
            MsgBox("The Question has been changed! Please remember to change the answer aswell!")
            oWorkbook.save()
            oExcel.quit()
            TextBox1.Text = ""

        ElseIf Label22.Text = "science" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Science.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(1, 2).value = TextBox1.Text
            MsgBox("The Question has been changed! Please remember to change the answer aswell!")
            oWorkbook.save()
            oExcel.quit()
            TextBox1.Text = ""

        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If Label22.Text = "Maths" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Maths.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(1, 3).value = TextBox2.Text
            MsgBox("The Question has been changed! Please remember to change the answer aswell!")
            oWorkbook.save()
            oExcel.quit()
            TextBox2.Text = ""

        ElseIf Label22.Text = "english" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6English.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(1, 3).value = TextBox2.Text
            MsgBox("The Question has been changed! Please remember to change the answer aswell!")
            oWorkbook.save()
            oExcel.quit()
            TextBox2.Text = ""

        ElseIf Label22.Text = "science" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Science.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(1, 3).value = TextBox2.Text
            MsgBox("The Question has been changed! Please remember to change the answer aswell!")
            oWorkbook.save()
            oExcel.quit()
            TextBox2.Text = ""
        End If

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If Label22.Text = "Maths" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Maths.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(1, 4).value = TextBox3.Text
            MsgBox("The Question has been changed! Please remember to change the answer aswell!")
            oWorkbook.save()
            oExcel.quit()
            TextBox3.Text = ""

        ElseIf Label22.Text = "english" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6English.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(1, 4).value = TextBox3.Text
            MsgBox("The Question has been changed! Please remember to change the answer aswell!")
            oWorkbook.save()
            oExcel.quit()
            TextBox3.Text = ""

        ElseIf Label22.Text = "science" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Science.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(1, 4).value = TextBox3.Text
            MsgBox("The Question has been changed! Please remember to change the answer aswell!")
            oWorkbook.save()
            oExcel.quit()
            TextBox3.Text = ""
        End If


    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If Label22.Text = "Maths" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Maths.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(1, 5).value = TextBox4.Text
            MsgBox("The Question has been changed! Please remember to change the answer aswell!")
            oWorkbook.save()
            oExcel.quit()
            TextBox4.Text = ""

        ElseIf Label22.Text = "english" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6English.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(1, 5).value = TextBox4.Text
            MsgBox("The Question has been changed! Please remember to change the answer aswell!")
            oWorkbook.save()
            oExcel.quit()
            TextBox4.Text = ""

        ElseIf Label22.Text = "science" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Science.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(1, 5).value = TextBox4.Text
            MsgBox("The Question has been changed! Please remember to change the answer aswell!")
            oWorkbook.save()
            oExcel.quit()
            TextBox4.Text = ""
        End If


    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If Label22.Text = "Maths" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Maths.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(1, 6).value = TextBox5.Text
            MsgBox("The Question has been changed! Please remember to change the answer aswell!")
            oWorkbook.save()
            oExcel.quit()
            TextBox5.Text = ""

        ElseIf Label22.Text = "english" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6English.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(1, 6).value = TextBox5.Text
            MsgBox("The Question has been changed! Please remember to change the answer aswell!")
            oWorkbook.save()
            oExcel.quit()
            TextBox5.Text = ""

        ElseIf Label22.Text = "science" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Science.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(1, 6).value = TextBox5.Text
            MsgBox("The Question has been changed! Please remember to change the answer aswell!")
            oWorkbook.save()
            oExcel.quit()
            TextBox5.Text = ""
        End If
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        If Label22.Text = "Maths" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Maths.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(1, 7).value = TextBox6.Text
            MsgBox("The Question has been changed! Please remember to change the answer aswell!")
            oWorkbook.save()
            oExcel.quit()
            TextBox6.Text = ""

        ElseIf Label22.Text = "english" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6English.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(1, 7).value = TextBox6.Text
            MsgBox("The Question has been changed! Please remember to change the answer aswell!")
            oWorkbook.save()
            oExcel.quit()
            TextBox6.Text = ""

        ElseIf Label22.Text = "science" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Science.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(1, 7).value = TextBox6.Text
            MsgBox("The Question has been changed! Please remember to change the answer aswell!")
            oWorkbook.save()
            oExcel.quit()
            TextBox6.Text = ""
        End If
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If Label22.Text = "Maths" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Maths.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(1, 8).value = TextBox7.Text
            MsgBox("The Question has been changed! Please remember to change the answer aswell!")
            oWorkbook.save()
            oExcel.quit()
            TextBox7.Text = ""

        ElseIf Label22.Text = "english" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6English.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(1, 8).value = TextBox7.Text
            MsgBox("The Question has been changed! Please remember to change the answer aswell!")
            oWorkbook.save()
            oExcel.quit()
            TextBox7.Text = ""

        ElseIf Label22.Text = "science" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Science.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(1, 8).value = TextBox7.Text
            MsgBox("The Question has been changed! Please remember to change the answer aswell!")
            oWorkbook.save()
            oExcel.quit()
            TextBox7.Text = ""
        End If
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        If Label22.Text = "Maths" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Maths.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(1, 9).value = TextBox8.Text
            MsgBox("The Question has been changed! Please remember to change the answer aswell!")
            oWorkbook.save()
            oExcel.quit()
            TextBox8.Text = ""

        ElseIf Label22.Text = "english" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6English.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(1, 9).value = TextBox8.Text
            MsgBox("The Question has been changed! Please remember to change the answer aswell!")
            oWorkbook.save()
            oExcel.quit()
            TextBox8.Text = ""

        ElseIf Label22.Text = "science" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Science.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(1, 9).value = TextBox8.Text
            MsgBox("The Question has been changed! Please remember to change the answer aswell!")
            oWorkbook.save()
            oExcel.quit()
            TextBox8.Text = ""
        End If
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        If Label22.Text = "Maths" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Maths.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(1, 10).value = TextBox9.Text
            MsgBox("The Question has been changed! Please remember to change the answer aswell!")
            oWorkbook.save()
            oExcel.quit()
            TextBox9.Text = ""

        ElseIf Label22.Text = "english" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6English.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(1, 10).value = TextBox9.Text
            MsgBox("The Question has been changed! Please remember to change the answer aswell!")
            oWorkbook.save()
            oExcel.quit()
            TextBox9.Text = ""

        ElseIf Label22.Text = "science" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Science.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(1, 10).value = TextBox9.Text
            MsgBox("The Question has been changed! Please remember to change the answer aswell!")
            oWorkbook.save()
            oExcel.quit()
            TextBox9.Text = ""
        End If
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        If Label22.Text = "Maths" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Maths.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(1, 11).value = TextBox10.Text
            MsgBox("The Question has been changed! Please remember to change the answer aswell!")
            oWorkbook.save()
            oExcel.quit()
            TextBox10.Text = ""

        ElseIf Label22.Text = "english" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6English.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(1, 11).value = TextBox10.Text
            MsgBox("The Question has been changed! Please remember to change the answer aswell!")
            oWorkbook.save()
            oExcel.quit()
            TextBox10.Text = ""

        ElseIf Label22.Text = "science" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Science.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(1, 11).value = TextBox10.Text
            MsgBox("The Question has been changed! Please remember to change the answer aswell!")
            oWorkbook.save()
            oExcel.quit()
            TextBox10.Text = ""
        End If
    End Sub

    Private Sub TextBox14_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox14.TextChanged

    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        If Label22.Text = "Maths" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Maths.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            tobechanged = TextBox1.Text
            oSheet.cells(2, 2).value = TextBox11.Text
            MsgBox("The Answer has been changed!")
            oWorkbook.save()
            oExcel.quit()
            TextBox11.Text = ""

        ElseIf Label22.Text = "english" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6English.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(2, 2).value = TextBox11.Text
            MsgBox("The Answer has been changed!")
            oWorkbook.save()
            oExcel.quit()
            TextBox11.Text = ""

        ElseIf Label22.Text = "science" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Science.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(2, 2).value = TextBox11.Text
            MsgBox("The Answer has been changed!")
            oWorkbook.save()
            oExcel.quit()
            TextBox11.Text = ""
        End If

    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        If Label22.Text = "Maths" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Maths.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            tobechanged = TextBox1.Text
            oSheet.cells(2, 3).value = TextBox12.Text
            MsgBox("The Answer has been changed!")
            oWorkbook.save()
            oExcel.quit()
            TextBox12.Text = ""

        ElseIf Label22.Text = "english" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6English.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(2, 3).value = TextBox12.Text
            MsgBox("The Answer has been changed!")
            oWorkbook.save()
            oExcel.quit()
            TextBox12.Text = ""

        ElseIf Label22.Text = "science" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Science.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(2, 3).value = TextBox12.Text
            MsgBox("The Answer has been changed!")
            oWorkbook.save()
            oExcel.quit()
            TextBox12.Text = ""
        End If
    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        If Label22.Text = "Maths" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Maths.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            tobechanged = TextBox1.Text
            oSheet.cells(2, 4).value = TextBox13.Text
            MsgBox("The Answer has been changed!")
            oWorkbook.save()
            oExcel.quit()
            TextBox13.Text = ""

        ElseIf Label22.Text = "english" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6English.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(2, 4).value = TextBox13.Text
            MsgBox("The Answer has been changed!")
            oWorkbook.save()
            oExcel.quit()
            TextBox13.Text = ""

        ElseIf Label22.Text = "science" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Science.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(2, 4).value = TextBox13.Text
            MsgBox("The Answer has been changed!")
            oWorkbook.save()
            oExcel.quit()
            TextBox13.Text = ""
        End If
    End Sub

    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
        If Label22.Text = "Maths" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Maths.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            tobechanged = TextBox1.Text
            oSheet.cells(2, 5).value = TextBox14.Text
            MsgBox("The Answer has been changed!")
            oWorkbook.save()
            oExcel.quit()
            TextBox14.Text = ""

        ElseIf Label22.Text = "english" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6English.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(2, 5).value = TextBox14.Text
            MsgBox("The Answer has been changed!")
            oWorkbook.save()
            oExcel.quit()
            TextBox14.Text = ""

        ElseIf Label22.Text = "science" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Science.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(2, 5).value = TextBox14.Text
            MsgBox("The Answer has been changed!")
            oWorkbook.save()
            oExcel.quit()
            TextBox14.Text = ""
        End If
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        If Label22.Text = "Maths" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Maths.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            tobechanged = TextBox1.Text
            oSheet.cells(2, 6).value = TextBox15.Text
            MsgBox("The Answer has been changed!")
            oWorkbook.save()
            oExcel.quit()
            TextBox15.Text = ""

        ElseIf Label22.Text = "english" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6English.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(2, 6).value = TextBox15.Text
            MsgBox("The Answer has been changed!")
            oWorkbook.save()
            oExcel.quit()
            TextBox15.Text = ""

        ElseIf Label22.Text = "science" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Science.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(2, 6).value = TextBox15.Text
            MsgBox("The Answer has been changed!")
            oWorkbook.save()
            oExcel.quit()
            TextBox15.Text = ""
        End If
    End Sub

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        If Label22.Text = "Maths" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Maths.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            tobechanged = TextBox1.Text
            oSheet.cells(2, 7).value = TextBox16.Text
            MsgBox("The Answer has been changed!")
            oWorkbook.save()
            oExcel.quit()
            TextBox16.Text = ""

        ElseIf Label22.Text = "english" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6English.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(2, 7).value = TextBox16.Text
            MsgBox("The Answer has been changed!")
            oWorkbook.save()
            oExcel.quit()
            TextBox16.Text = ""

        ElseIf Label22.Text = "science" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Science.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(2, 7).value = TextBox16.Text
            MsgBox("The Answer has been changed!")
            oWorkbook.save()
            oExcel.quit()
            TextBox16.Text = ""
        End If
    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        If Label22.Text = "Maths" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Maths.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            tobechanged = TextBox1.Text
            oSheet.cells(2, 8).value = TextBox17.Text
            MsgBox("The Answer has been changed!")
            oWorkbook.save()
            oExcel.quit()
            TextBox17.Text = ""

        ElseIf Label22.Text = "english" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6English.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(2, 8).value = TextBox17.Text
            MsgBox("The Answer has been changed!")
            oWorkbook.save()
            oExcel.quit()
            TextBox17.Text = ""

        ElseIf Label22.Text = "science" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Science.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(2, 8).value = TextBox17.Text
            MsgBox("The Answer has been changed!")
            oWorkbook.save()
            oExcel.quit()
            TextBox17.Text = ""
        End If
    End Sub

    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
        If Label22.Text = "Maths" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Maths.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            tobechanged = TextBox1.Text
            oSheet.cells(2, 9).value = TextBox18.Text
            MsgBox("The Answer has been changed!")
            oWorkbook.save()
            oExcel.quit()
            TextBox18.Text = ""

        ElseIf Label22.Text = "english" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6English.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(2, 9).value = TextBox18.Text
            MsgBox("The Answer has been changed!")
            oWorkbook.save()
            oExcel.quit()
            TextBox18.Text = ""

        ElseIf Label22.Text = "science" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Science.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(2, 9).value = TextBox18.Text
            MsgBox("The Answer has been changed!")
            oWorkbook.save()
            oExcel.quit()
            TextBox18.Text = ""
        End If
    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        If Label22.Text = "Maths" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Maths.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            tobechanged = TextBox1.Text
            oSheet.cells(2, 10).value = TextBox19.Text
            MsgBox("The Answer has been changed!")
            oWorkbook.save()
            oExcel.quit()
            TextBox19.Text = ""

        ElseIf Label22.Text = "english" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6English.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(2, 10).value = TextBox19.Text
            MsgBox("The Answer has been changed!")
            oWorkbook.save()
            oExcel.quit()
            TextBox19.Text = ""

        ElseIf Label22.Text = "science" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Science.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(2, 10).value = TextBox19.Text
            MsgBox("The Answer has been changed!")
            oWorkbook.save()
            oExcel.quit()
            TextBox19.Text = ""
        End If
    End Sub

    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
        If Label22.Text = "Maths" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Maths.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            tobechanged = TextBox1.Text
            oSheet.cells(2, 11).value = TextBox20.Text
            MsgBox("The Answer has been changed!")
            oWorkbook.save()
            oExcel.quit()
            TextBox20.Text = ""

        ElseIf Label22.Text = "english" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6English.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(2, 11).value = TextBox20.Text
            MsgBox("The Answer has been changed!")
            oWorkbook.save()
            oExcel.quit()
            TextBox20.Text = ""

        ElseIf Label22.Text = "science" Then
            Dim oExcel As Object = CreateObject("Excel.Application")
            Dim oWorkbook As Object = oExcel.Workbooks.open("C:\Year6Science.xls")
            Dim oSheet As Object = oWorkbook.Worksheets(1)
            oExcel.displayalerts = False
            oSheet.cells(2, 11).value = TextBox20.Text
            MsgBox("The Answer has been changed!")
            oWorkbook.save()
            oExcel.quit()
            TextBox20.Text = ""
        End If
    End Sub
End Class