S6 Tracking Program

Public Class Form1

    'Declare record structure
    Public Structure pupiltracking
        Dim scn As String
        Dim knownas As String
        Dim surname As String
        Dim reg As String
        Dim sex As String
        Dim simd As Integer
        Dim fme As String
        Dim lac As String
        Dim language As String
        Dim att As Single

        'Calculations and behaviours
        Dim achievinglevel3 As Integer
        Dim achievinglevel4 As Integer
        Dim achievinglevel5 As Integer
        Dim achievinglevel6 As Integer
        Dim achievinglevel7 As Integer

        Dim combinedlevel3 As Integer
        Dim combinedlevel4 As Integer
        Dim combinedlevel5 As Integer
        Dim combinedlevel6 As Integer
        Dim combinedlevel7 As Integer

        Dim tariffpoints As Integer

        Dim studyinglevel3 As Integer
        Dim studyinglevel4 As Integer
        Dim studyinglevel5 As Integer
        Dim studyinglevel6 As Integer
        Dim studyinglevel7 As Integer

        Dim avgengagement As Single
        Dim avgclasswork As Single
        Dim avghomework As Single
        Dim avgoverallprogress As Single

        'Subject tracking and levels
        Dim accounting As String
        Dim accountinglevel As String
        Dim admin As String
        Dim adminlevel As String
        Dim art As String
        Dim artlevel As String
        Dim barista As String
        Dim baristalevel As String
        Dim biology As String
        Dim biologylevel As String
        Dim business As String
        Dim businesslevel As String
        Dim chemistry As String
        Dim chemistrylevel As String
        Dim computing As String
        Dim computinglevel As String
        Dim criminology As String
        Dim criminologylevel As String
        Dim cyber As String
        Dim cyberlevel As String
        Dim designman As String
        Dim designmanlevel As String
        Dim drama As String
        Dim dramalevel As String
        Dim energy As String
        Dim energylevel As String
        Dim english As String
        Dim englishlevel As String
        Dim esl As String
        Dim esllevel As String
        Dim french As String
        Dim frenchlevel As String
        Dim gamesdevlevel As String
        Dim geography As String
        Dim geographylevel As String
        Dim graphics As String
        Dim graphicslevel As String
        Dim healthandfoodtech As String
        Dim healthandfoodtechlevel As String
        Dim history As String
        Dim historylevel As String
        Dim humanbio As String
        Dim humanbiolevel As String
        Dim italian As String
        Dim italianlevel As String
        Dim jewellery As String
        Dim jewellerylevel As String
        Dim mathematics As String
        Dim mathematicslevel As String
        Dim media As String
        Dim medialevel As String
        Dim modernstudies As String
        Dim modernstudieslevel As String
        Dim musiclead As String
        Dim musicleadlevel As String
        Dim music As String
        Dim musiclevel As String
        Dim musictech As String
        Dim musictechlevel As String
        Dim fitness As String
        Dim fitnesslevel As String
        Dim pe As String
        Dim pelevel As String
        Dim personalDev As String
        Dim personalDevlevel As String
        Dim photography As String
        Dim photographylevel As String
        Dim physics As String
        Dim physicslevel As String
        Dim politics As String
        Dim politicslevel As String
        Dim metalwork As String
        Dim metalworklevel As String
        Dim pracwood As String
        Dim pracwoodlevel As String
        Dim re As String
        Dim relevel As String
        Dim refereeing As String
        Dim refereeinglevel As String
        Dim skillsforworkFARE As String
        Dim skillsforworkFARElevel As String
        Dim sociology As String
        Dim sociologylevel As String
        Dim spanish As String
        Dim spanishlevel As String
        Dim sportslead As String
        Dim sportsleadlevel As String
        Dim urdu As String
        Dim urdulevel As String
        Dim visual As String
        Dim visuallevel As String

    End Structure

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'Declare variables and get number of pupils and number of tracking data

        Dim pupilno As Integer
        Dim trackingno As Integer
        Dim behavioursno As Integer

        Dim fivelevel5 As Integer
        Dim threelevel5 As Integer
        Dim onelevel5 As Integer

        Dim percent5at5 As Integer
        Dim percent3at5 As Integer
        Dim percent1at5 As Integer

        Dim fivelevel6 As Integer
        Dim threelevel6 As Integer
        Dim onelevel6 As Integer

        Dim percent5at6 As Integer
        Dim percent3at6 As Integer
        Dim percent1at6 As Integer

        Dim fivelevel7 As Integer
        Dim threelevel7 As Integer
        Dim onelevel7 As Integer

        Dim percent5at7 As Integer
        Dim percent3at7 As Integer
        Dim percent1at7 As Integer


        pupilno = InputBox("How many pupils are there in the pupildata csv file?: ")
        trackingno = InputBox("How many rows in the tracking csv file?: ")
        behavioursno = pupilno


        'Declare array of records
        Dim pupilrecords(pupilno - 1) As pupiltracking

        'Declare arrays to store pupil data that will be read in from files
        Dim pupilscn(pupilno - 1) As String
        Dim pupilknownas(pupilno - 1) As String
        Dim pupilsurname(pupilno - 1) As String
        Dim pupilreg(pupilno - 1) As String
        Dim pupilsex(pupilno - 1) As String
        Dim pupilsimd(pupilno - 1) As Integer
        Dim pupilfme(pupilno - 1) As String
        Dim pupillac(pupilno - 1) As String
        Dim pupillanguage(pupilno - 1) As String
        Dim pupilatt(pupilno - 1) As Single


        'Declare arrays for tracking data taken from file
        Dim trackingscn(trackingno - 1) As String
        Dim trackingsubject(trackingno - 1) As String
        Dim trackinglevel(trackingno - 1) As String
        Dim trackingwg(trackingno - 1) As String



        'Declare calculations
        Dim trackingatlevel3(trackingno - 1) As Integer
        Dim trackingatlevel4(trackingno - 1) As Integer
        Dim trackingatlevel5(trackingno - 1) As Integer
        Dim trackingatlevel6(trackingno - 1) As Integer
        Dim trackingatlevel7(trackingno - 1) As Integer
        Dim trackingtariffpoints(trackingno - 1) As Integer
        Dim trackingstudyinglevel3(trackingno - 1) As Integer
        Dim trackingstudyinglevel4(trackingno - 1) As Integer
        Dim trackingstudyinglevel5(trackingno - 1) As Integer
        Dim trackingstudyinglevel6(trackingno - 1) As Integer
        Dim trackingstudyinglevel7(trackingno - 1) As Integer


        'Declare arrays for behaviour data
        Dim behaviourscn(behavioursno - 1) As String
        Dim behaviourtariff(behavioursno - 1) As Single
        Dim behaviourengagement(behavioursno - 1) As Single
        Dim behaviourcw(behavioursno - 1) As Single
        Dim behaviourhw(behavioursno - 1) As Single
        Dim behaviourprogress(behavioursno - 1) As Single




        'Initialise record attributes

        For counter = 0 To pupilno - 1 'loop for each pupil
            pupilrecords(counter).scn = " - "
            pupilrecords(counter).knownas = " - "
            pupilrecords(counter).surname = " - "
            pupilrecords(counter).reg = " - "
            pupilrecords(counter).sex = " - "
            pupilrecords(counter).simd = 0
            pupilrecords(counter).fme = " - "
            pupilrecords(counter).lac = " - "
            pupilrecords(counter).language = " - "
            pupilrecords(counter).att = 0.0
            pupilrecords(counter).achievinglevel3 = 0
            pupilrecords(counter).achievinglevel4 = 0
            pupilrecords(counter).achievinglevel5 = 0
            pupilrecords(counter).achievinglevel6 = 0
            pupilrecords(counter).achievinglevel7 = 0
            pupilrecords(counter).combinedlevel3 = 0
            pupilrecords(counter).combinedlevel4 = 0
            pupilrecords(counter).combinedlevel5 = 0
            pupilrecords(counter).combinedlevel6 = 0

            pupilrecords(counter).tariffpoints = 0.0
            pupilrecords(counter).studyinglevel3 = 0
            pupilrecords(counter).studyinglevel4 = 0
            pupilrecords(counter).studyinglevel5 = 0
            pupilrecords(counter).studyinglevel6 = 0
            pupilrecords(counter).studyinglevel7 = 0
            pupilrecords(counter).avgengagement = 0.0
            pupilrecords(counter).avgclasswork = 0.0
            pupilrecords(counter).avghomework = 0.0
            pupilrecords(counter).avgoverallprogress = 0.0

            'The subject name is the working grade
            pupilrecords(counter).accounting = "-"
            pupilrecords(counter).admin = "-"
            pupilrecords(counter).art = "-"
            pupilrecords(counter).barista = "-"
            pupilrecords(counter).biology = "-"
            pupilrecords(counter).business = "-"
            pupilrecords(counter).chemistry = "-"
            pupilrecords(counter).computing = "-"
            pupilrecords(counter).criminology = "-"
            pupilrecords(counter).cyber = "-"
            pupilrecords(counter).designman = "-"
            pupilrecords(counter).drama = "-"
            pupilrecords(counter).energy = "-"
            pupilrecords(counter).english = "-"
            pupilrecords(counter).esl = "-"
            pupilrecords(counter).french = "-"
            pupilrecords(counter).geography = "-"
            pupilrecords(counter).graphics = "-"
            pupilrecords(counter).healthandfoodtech = "-"
            pupilrecords(counter).history = "-"
            pupilrecords(counter).humanbio = "-"
            pupilrecords(counter).italian = "-"
            pupilrecords(counter).jewellery = "-"
            pupilrecords(counter).mathematics = "-"
            pupilrecords(counter).media = "-"
            pupilrecords(counter).modernstudies = "-"
            pupilrecords(counter).musiclead = "-"
            pupilrecords(counter).music = "-"
            pupilrecords(counter).musictech = "-"
            pupilrecords(counter).fitness = "-"
            pupilrecords(counter).pe = "-"
            pupilrecords(counter).personalDev = "-"
            pupilrecords(counter).photography = "-"
            pupilrecords(counter).physics = "-"
            pupilrecords(counter).politics = "-"
            pupilrecords(counter).metalwork = "-"
            pupilrecords(counter).pracwood = "-"
            pupilrecords(counter).re = "-"
            pupilrecords(counter).refereeing = "-"
            pupilrecords(counter).skillsforworkFARE = "-"
            pupilrecords(counter).sociology = "-"
            pupilrecords(counter).spanish = "-"
            pupilrecords(counter).sportslead = "-"
            pupilrecords(counter).urdu = "-"
            pupilrecords(counter).visual = "-"


            pupilrecords(counter).accountinglevel = "-"
            pupilrecords(counter).adminlevel = "-"
            pupilrecords(counter).artlevel = "-"
            pupilrecords(counter).baristalevel = "-"
            pupilrecords(counter).biologylevel = "-"
            pupilrecords(counter).businesslevel = "-"
            pupilrecords(counter).chemistrylevel = "-"
            pupilrecords(counter).computinglevel = "-"
            pupilrecords(counter).criminologylevel = "-"
            pupilrecords(counter).cyberlevel = "-"
            pupilrecords(counter).designmanlevel = "-"
            pupilrecords(counter).dramalevel = "-"
            pupilrecords(counter).energylevel = "-"
            pupilrecords(counter).englishlevel = "-"
            pupilrecords(counter).esllevel = "-"
            pupilrecords(counter).frenchlevel = "-"
            pupilrecords(counter).gamesdevlevel = "-"
            pupilrecords(counter).geographylevel = "-"
            pupilrecords(counter).graphicslevel = "-"
            pupilrecords(counter).healthandfoodtechlevel = "-"
            pupilrecords(counter).historylevel = "-"
            pupilrecords(counter).humanbiolevel = "-"
            pupilrecords(counter).italianlevel = "-"
            pupilrecords(counter).jewellerylevel = "-"
            pupilrecords(counter).mathematicslevel = "-"
            pupilrecords(counter).medialevel = "-"
            pupilrecords(counter).modernstudieslevel = "-"
            pupilrecords(counter).musiclevel = "-"
            pupilrecords(counter).musicleadlevel = "-"
            pupilrecords(counter).musictechlevel = "-"
            pupilrecords(counter).fitnesslevel = "-"
            pupilrecords(counter).pelevel = "-"
            pupilrecords(counter).personalDevlevel = "-"
            pupilrecords(counter).photographylevel = "-"
            pupilrecords(counter).physicslevel = "-"
            pupilrecords(counter).politicslevel = "-"
            pupilrecords(counter).pracwoodlevel = "-"
            pupilrecords(counter).relevel = "-"
            pupilrecords(counter).metalworklevel = "-"
            pupilrecords(counter).refereeinglevel = "-"
            pupilrecords(counter).skillsforworkFARElevel = "-"
            pupilrecords(counter).sociologylevel = "-"
            pupilrecords(counter).spanishlevel = "-"
            pupilrecords(counter).sportsleadlevel = "-"
            pupilrecords(counter).urdulevel = "-"
            pupilrecords(counter).visuallevel = "-"



        Next


        'Read in pupil data and store in arrays

        FileOpen(1, "C:\Users\mrmar\Documents\Visual Studio 2022\VB Data Files\S56 Tracking Program\S6 Tracking Program\pupildata.csv", OpenMode.Input) ' file stored in Bin/Debug of project

        For counter = 0 To pupilno - 1 'loop for each pupil

            ' read one item at a time from the file and store in parallel arrays
            'Get from management report Second Curricular Context
            Input(1, pupilscn(counter))
            Input(1, pupilknownas(counter))
            Input(1, pupilsurname(counter))
            Input(1, pupilreg(counter))
            Input(1, pupilsex(counter))
            Input(1, pupilfme(counter))
            Input(1, pupillac(counter))
            Input(1, pupillanguage(counter))
            Input(1, pupilatt(counter))
            Input(1, pupilsimd(counter))

        Next

        FileClose(1)



        'Read in tracking data and store in arrays

        FileOpen(2, "C:\Users\mrmar\Documents\Visual Studio 2022\VB Data Files\S56 Tracking Program\S6 Tracking Program\tracking.csv", OpenMode.Input) ' file stored in Bin/Debug of project



        For counter = 0 To trackingno - 1 'loop for each row of tracking

            ' read one item at a time from the file and store in parallel arrays
            'Get from Management Report First Curricula Context


            Input(2, trackingscn(counter))
            Input(2, trackingsubject(counter))
            Input(2, trackinglevel(counter))
            Input(2, trackingwg(counter))



            'Convert level to shorter names for spreadsheet

            Select Case trackinglevel(counter)
                Case "Advanced Higher"
                    trackinglevel(counter) = "AH"
                Case "Higher"
                    trackinglevel(counter) = "H"
                Case "National 1"
                    trackinglevel(counter) = "N1"
                Case "National 2"
                    trackinglevel(counter) = "N2"
                Case "National 3"
                    trackinglevel(counter) = "N3"
                Case "National 4"
                    trackinglevel(counter) = "N4"
                Case "National 5"
                    trackinglevel(counter) = "N5"
                Case "Not Set"
                    trackinglevel(counter) = "0"
                Case "NPA Level 3"
                    trackinglevel(counter) = "43"
                Case "NPA Level 4"
                    trackinglevel(counter) = "44"
                Case "NPA Level 5"
                    trackinglevel(counter) = "45"
                Case "NPA Level 6"
                    trackinglevel(counter) = "46"
                Case "NPA Level 7"
                    trackinglevel(counter) = "47"
                Case "NC Level 3"
                    trackinglevel(counter) = "NC3"
                Case "NC Level 4"
                    trackinglevel(counter) = "NC4"
                Case "NC Level 5"
                    trackinglevel(counter) = "NC5"
                Case "NC Level 6"
                    trackinglevel(counter) = "NC6"
            End Select

            'Convert working grade to shorter names for spreadsheet

            Select Case trackingwg(counter)
                Case "Pass"
                    trackingwg(counter) = "P"
                Case "Fail"
                    trackingwg(counter) = "F"
                Case "Not Set"
                    trackingwg(counter) = "0"
            End Select



        Next

        FileClose(2)


        'Read in behaviour data and store in arrays

        FileOpen(3, "C:\Users\mrmar\Documents\Visual Studio 2022\VB Data Files\S56 Tracking Program\S6 Tracking Program\behaviours.csv", OpenMode.Input) ' file stored in Bin/Debug of project

        For counter = 0 To behavioursno - 1 'loop for each row of tracking
            ' read in average behaviours one item at a time from the file and store in parallel arrays
            'Get from BGE Average Behaviour Chart


            Input(3, behaviourscn(counter))
            Input(3, behaviourtariff(counter))
            Input(3, behaviourengagement(counter))
            Input(3, behaviourcw(counter))
            Input(3, behaviourhw(counter))
            Input(3, behaviourprogress(counter))
        Next

        FileClose(3)





        'Put pupil data into records

        For pupilindex = 0 To pupilno - 1
            pupilrecords(pupilindex).scn = pupilscn(pupilindex)
            pupilrecords(pupilindex).knownas = pupilknownas(pupilindex)
            pupilrecords(pupilindex).surname = pupilsurname(pupilindex)
            pupilrecords(pupilindex).reg = pupilreg(pupilindex)
            pupilrecords(pupilindex).sex = pupilsex(pupilindex)
            pupilrecords(pupilindex).simd = pupilsimd(pupilindex)
            pupilrecords(pupilindex).fme = pupilfme(pupilindex)
            pupilrecords(pupilindex).lac = pupillac(pupilindex)
            pupilrecords(pupilindex).language = pupillanguage(pupilindex)
            pupilrecords(pupilindex).att = pupilatt(pupilindex)
        Next





        'Put tracking data into records for each pupil


        For pupilindex = 0 To pupilno - 1
            For trackingindex = 0 To trackingno - 1


                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("accounting") Then
                    pupilrecords(pupilindex).accounting = trackingwg(trackingindex)
                    pupilrecords(pupilindex).accountinglevel = trackinglevel(trackingindex)
                End If


                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("administration") Then
                    pupilrecords(pupilindex).admin = trackingwg(trackingindex)
                    pupilrecords(pupilindex).adminlevel = trackinglevel(trackingindex)
                End If


                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("art & design") Then
                    pupilrecords(pupilindex).art = trackingwg(trackingindex)
                    pupilrecords(pupilindex).artlevel = trackinglevel(trackingindex)
                End If



                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("barista") Then
                    pupilrecords(pupilindex).barista = trackingwg(trackingindex)
                    pupilrecords(pupilindex).baristalevel = trackinglevel(trackingindex)
                End If


                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)) = "biology n5" Then
                    pupilrecords(pupilindex).biology = trackingwg(trackingindex)
                    pupilrecords(pupilindex).biologylevel = trackinglevel(trackingindex)
                End If

                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("business") Then
                    pupilrecords(pupilindex).business = trackingwg(trackingindex)
                    pupilrecords(pupilindex).businesslevel = trackinglevel(trackingindex)
                End If

                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("chemistry") Then
                    pupilrecords(pupilindex).chemistry = trackingwg(trackingindex)
                    pupilrecords(pupilindex).chemistrylevel = trackinglevel(trackingindex)
                End If

                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("computing") Then
                    pupilrecords(pupilindex).computing = trackingwg(trackingindex)
                    pupilrecords(pupilindex).computinglevel = trackinglevel(trackingindex)
                End If

                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("criminology") Then
                    pupilrecords(pupilindex).criminology = trackingwg(trackingindex)
                    pupilrecords(pupilindex).criminologylevel = trackinglevel(trackingindex)
                End If

                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("cyber") Then
                    pupilrecords(pupilindex).cyber = trackingwg(trackingindex)
                    pupilrecords(pupilindex).cyberlevel = trackinglevel(trackingindex)
                End If


                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("manufacture") Then
                    pupilrecords(pupilindex).designman = trackingwg(trackingindex)
                    pupilrecords(pupilindex).designmanlevel = trackinglevel(trackingindex)
                End If

                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("drama") Then
                    pupilrecords(pupilindex).drama = trackingwg(trackingindex)
                    pupilrecords(pupilindex).dramalevel = trackinglevel(trackingindex)
                End If


                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("energy") Then
                    pupilrecords(pupilindex).energy = trackingwg(trackingindex)
                    pupilrecords(pupilindex).energylevel = trackinglevel(trackingindex)
                End If


                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)) = "english n5" Then
                    pupilrecords(pupilindex).english = trackingwg(trackingindex)
                    pupilrecords(pupilindex).englishlevel = trackinglevel(trackingindex)
                End If

                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)) = "english" Then
                    pupilrecords(pupilindex).english = trackingwg(trackingindex)
                    pupilrecords(pupilindex).englishlevel = trackinglevel(trackingindex)
                End If

                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("second language") Then
                    pupilrecords(pupilindex).esl = trackingwg(trackingindex)
                    pupilrecords(pupilindex).esllevel = trackinglevel(trackingindex)
                End If

                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("french") Then
                    pupilrecords(pupilindex).french = trackingwg(trackingindex)
                    pupilrecords(pupilindex).frenchlevel = trackinglevel(trackingindex)
                End If


                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("geography") Then
                    pupilrecords(pupilindex).geography = trackingwg(trackingindex)
                    pupilrecords(pupilindex).geographylevel = trackinglevel(trackingindex)
                End If

                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("graphic") Then
                    pupilrecords(pupilindex).graphics = trackingwg(trackingindex)
                    pupilrecords(pupilindex).graphicslevel = trackinglevel(trackingindex)
                End If

                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("food") Then
                    pupilrecords(pupilindex).healthandfoodtech = trackingwg(trackingindex)
                    pupilrecords(pupilindex).healthandfoodtechlevel = trackinglevel(trackingindex)
                End If

                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("history") Then
                    pupilrecords(pupilindex).history = trackingwg(trackingindex)
                    pupilrecords(pupilindex).historylevel = trackinglevel(trackingindex)
                End If

                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)) = "human biology" Then
                    pupilrecords(pupilindex).humanbio = trackingwg(trackingindex)
                    pupilrecords(pupilindex).humanbiolevel = trackinglevel(trackingindex)
                End If


                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("italian") Then
                    pupilrecords(pupilindex).italian = trackingwg(trackingindex)
                    pupilrecords(pupilindex).italianlevel = trackinglevel(trackingindex)
                End If

                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("jewellery") Then
                    pupilrecords(pupilindex).jewellery = trackingwg(trackingindex)
                    pupilrecords(pupilindex).jewellerylevel = trackinglevel(trackingindex)
                End If


                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("mathematics") Then
                    pupilrecords(pupilindex).mathematics = trackingwg(trackingindex)
                    pupilrecords(pupilindex).mathematicslevel = trackinglevel(trackingindex)
                End If

                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("media") Then
                    pupilrecords(pupilindex).media = trackingwg(trackingindex)
                    pupilrecords(pupilindex).medialevel = trackinglevel(trackingindex)
                End If


                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("modern studies") Then
                    pupilrecords(pupilindex).modernstudies = trackingwg(trackingindex)
                    pupilrecords(pupilindex).modernstudieslevel = trackinglevel(trackingindex)
                End If


                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)) = "music" Then
                    pupilrecords(pupilindex).music = trackingwg(trackingindex)
                    pupilrecords(pupilindex).musiclevel = trackinglevel(trackingindex)
                End If

                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)) = "music n5" Then
                    pupilrecords(pupilindex).music = trackingwg(trackingindex)
                    pupilrecords(pupilindex).musiclevel = trackinglevel(trackingindex)
                End If


                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)) = "music leadership" Then
                    pupilrecords(pupilindex).musiclead = trackingwg(trackingindex)
                    pupilrecords(pupilindex).musicleadlevel = trackinglevel(trackingindex)
                End If

                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)) = "music technology" Then
                    pupilrecords(pupilindex).musictech = trackingwg(trackingindex)
                    pupilrecords(pupilindex).musictechlevel = trackinglevel(trackingindex)
                End If

                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("fitness") Then
                    pupilrecords(pupilindex).fitness = trackingwg(trackingindex)
                    pupilrecords(pupilindex).fitnesslevel = trackinglevel(trackingindex)
                End If


                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("pe (sqa)") Then
                    pupilrecords(pupilindex).pe = trackingwg(trackingindex)
                    pupilrecords(pupilindex).pelevel = trackinglevel(trackingindex)
                End If

                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("personal development") Then
                    pupilrecords(pupilindex).personalDev = trackingwg(trackingindex)
                    pupilrecords(pupilindex).personalDevlevel = trackinglevel(trackingindex)
                End If

                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("photography") Then
                    pupilrecords(pupilindex).photography = trackingwg(trackingindex)
                    pupilrecords(pupilindex).photographylevel = trackinglevel(trackingindex)
                End If

                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("physics") Then
                    pupilrecords(pupilindex).physics = trackingwg(trackingindex)
                    pupilrecords(pupilindex).physicslevel = trackinglevel(trackingindex)
                End If

                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("politics") Then
                    pupilrecords(pupilindex).politics = trackingwg(trackingindex)
                    pupilrecords(pupilindex).politicslevel = trackinglevel(trackingindex)
                End If


                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("metalwork") Then
                    pupilrecords(pupilindex).metalwork = trackingwg(trackingindex)
                    pupilrecords(pupilindex).metalworklevel = trackinglevel(trackingindex)
                End If


                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("woodwork") Then
                    pupilrecords(pupilindex).pracwood = trackingwg(trackingindex)
                    pupilrecords(pupilindex).pracwoodlevel = trackinglevel(trackingindex)
                End If

                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("re (sqa)") Then
                    pupilrecords(pupilindex).re = trackingwg(trackingindex)
                    pupilrecords(pupilindex).relevel = trackinglevel(trackingindex)
                End If

                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("refereeing") Then
                    pupilrecords(pupilindex).refereeing = trackingwg(trackingindex)
                    pupilrecords(pupilindex).refereeinglevel = trackinglevel(trackingindex)
                End If


                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("fare") Then
                    pupilrecords(pupilindex).skillsforworkFARE = trackingwg(trackingindex)
                    pupilrecords(pupilindex).skillsforworkFARElevel = trackinglevel(trackingindex)
                End If

                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("sociology") Then
                    pupilrecords(pupilindex).sociology = trackingwg(trackingindex)
                    pupilrecords(pupilindex).sociologylevel = trackinglevel(trackingindex)
                End If

                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("spanish") Then
                    pupilrecords(pupilindex).spanish = trackingwg(trackingindex)
                    pupilrecords(pupilindex).spanishlevel = trackinglevel(trackingindex)
                End If


                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("sports leadership") Then
                    pupilrecords(pupilindex).sportslead = trackingwg(trackingindex)
                    pupilrecords(pupilindex).sportsleadlevel = trackinglevel(trackingindex)
                End If

                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("urdu") Then
                    pupilrecords(pupilindex).urdu = trackingwg(trackingindex)
                    pupilrecords(pupilindex).urdulevel = trackinglevel(trackingindex)
                End If

                If pupilscn(pupilindex) = trackingscn(trackingindex) And LCase(trackingsubject(trackingindex)).Contains("visual") Then
                    pupilrecords(pupilindex).visual = trackingwg(trackingindex)
                    pupilrecords(pupilindex).visuallevel = trackinglevel(trackingindex)
                End If


            Next


        Next

        'work out number of subjects STUDIED at different levels for each pupil

        For pupilindex = 0 To pupilno - 1

            If (pupilrecords(pupilindex).accountinglevel = "AH" Or pupilrecords(pupilindex).accountinglevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).accountinglevel = "H" Or pupilrecords(pupilindex).accountinglevel = "46" Or pupilrecords(pupilindex).accountinglevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).accountinglevel = "N5" Or pupilrecords(pupilindex).accountinglevel = "45" Or pupilrecords(pupilindex).accountinglevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).accountinglevel = "N4" Or pupilrecords(pupilindex).accountinglevel = "44" Or pupilrecords(pupilindex).accountinglevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).accountinglevel = "N3" Or pupilrecords(pupilindex).accountinglevel = "43" Or pupilrecords(pupilindex).accountinglevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If


            If (pupilrecords(pupilindex).adminlevel = "AH" Or pupilrecords(pupilindex).adminlevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).adminlevel = "H" Or pupilrecords(pupilindex).adminlevel = "46" Or pupilrecords(pupilindex).adminlevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).adminlevel = "N5" Or pupilrecords(pupilindex).adminlevel = "45" Or pupilrecords(pupilindex).adminlevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).adminlevel = "N4" Or pupilrecords(pupilindex).adminlevel = "44" Or pupilrecords(pupilindex).adminlevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).adminlevel = "N3" Or pupilrecords(pupilindex).adminlevel = "43" Or pupilrecords(pupilindex).adminlevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).artlevel = "AH" Or pupilrecords(pupilindex).artlevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).artlevel = "H" Or pupilrecords(pupilindex).artlevel = "46" Or pupilrecords(pupilindex).artlevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).artlevel = "N5" Or pupilrecords(pupilindex).artlevel = "45" Or pupilrecords(pupilindex).artlevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).artlevel = "N4" Or pupilrecords(pupilindex).artlevel = "44" Or pupilrecords(pupilindex).artlevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).artlevel = "N3" Or pupilrecords(pupilindex).artlevel = "43" Or pupilrecords(pupilindex).artlevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).baristalevel = "AH" Or pupilrecords(pupilindex).baristalevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).baristalevel = "H" Or pupilrecords(pupilindex).baristalevel = "46" Or pupilrecords(pupilindex).baristalevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).baristalevel = "N5" Or pupilrecords(pupilindex).baristalevel = "45" Or pupilrecords(pupilindex).baristalevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).baristalevel = "N4" Or pupilrecords(pupilindex).baristalevel = "44" Or pupilrecords(pupilindex).baristalevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).baristalevel = "N3" Or pupilrecords(pupilindex).baristalevel = "43" Or pupilrecords(pupilindex).baristalevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).biologylevel = "AH" Or pupilrecords(pupilindex).biologylevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).biologylevel = "H" Or pupilrecords(pupilindex).biologylevel = "46" Or pupilrecords(pupilindex).biologylevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).biologylevel = "N5" Or pupilrecords(pupilindex).biologylevel = "45" Or pupilrecords(pupilindex).biologylevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).biologylevel = "N4" Or pupilrecords(pupilindex).biologylevel = "44" Or pupilrecords(pupilindex).biologylevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).biologylevel = "N3" Or pupilrecords(pupilindex).biologylevel = "43" Or pupilrecords(pupilindex).biologylevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).businesslevel = "AH" Or pupilrecords(pupilindex).businesslevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).businesslevel = "H" Or pupilrecords(pupilindex).businesslevel = "46" Or pupilrecords(pupilindex).businesslevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).businesslevel = "N5" Or pupilrecords(pupilindex).businesslevel = "45" Or pupilrecords(pupilindex).businesslevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).businesslevel = "N4" Or pupilrecords(pupilindex).businesslevel = "44" Or pupilrecords(pupilindex).businesslevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).businesslevel = "N3" Or pupilrecords(pupilindex).businesslevel = "43" Or pupilrecords(pupilindex).businesslevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).chemistrylevel = "AH" Or pupilrecords(pupilindex).chemistrylevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).chemistrylevel = "H" Or pupilrecords(pupilindex).chemistrylevel = "46" Or pupilrecords(pupilindex).chemistrylevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).chemistrylevel = "N5" Or pupilrecords(pupilindex).chemistrylevel = "45" Or pupilrecords(pupilindex).chemistrylevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).chemistrylevel = "N4" Or pupilrecords(pupilindex).chemistrylevel = "44" Or pupilrecords(pupilindex).chemistrylevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).chemistrylevel = "N3" Or pupilrecords(pupilindex).chemistrylevel = "43" Or pupilrecords(pupilindex).chemistrylevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).computinglevel = "AH" Or pupilrecords(pupilindex).computinglevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).computinglevel = "H" Or pupilrecords(pupilindex).computinglevel = "46" Or pupilrecords(pupilindex).computinglevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).computinglevel = "N5" Or pupilrecords(pupilindex).computinglevel = "45" Or pupilrecords(pupilindex).computinglevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).computinglevel = "N4" Or pupilrecords(pupilindex).computinglevel = "44" Or pupilrecords(pupilindex).computinglevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).computinglevel = "N3" Or pupilrecords(pupilindex).computinglevel = "43" Or pupilrecords(pupilindex).computinglevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).criminologylevel = "AH" Or pupilrecords(pupilindex).criminologylevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).criminologylevel = "H" Or pupilrecords(pupilindex).criminologylevel = "46" Or pupilrecords(pupilindex).criminologylevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).criminologylevel = "N5" Or pupilrecords(pupilindex).criminologylevel = "45" Or pupilrecords(pupilindex).criminologylevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).criminologylevel = "N4" Or pupilrecords(pupilindex).criminologylevel = "44" Or pupilrecords(pupilindex).criminologylevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).criminologylevel = "N3" Or pupilrecords(pupilindex).criminologylevel = "43" Or pupilrecords(pupilindex).criminologylevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).cyberlevel = "AH" Or pupilrecords(pupilindex).cyberlevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).cyberlevel = "H" Or pupilrecords(pupilindex).cyberlevel = "46" Or pupilrecords(pupilindex).cyberlevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).cyberlevel = "N5" Or pupilrecords(pupilindex).cyberlevel = "45" Or pupilrecords(pupilindex).cyberlevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).cyberlevel = "N4" Or pupilrecords(pupilindex).cyberlevel = "44" Or pupilrecords(pupilindex).cyberlevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).cyberlevel = "N3" Or pupilrecords(pupilindex).cyberlevel = "43" Or pupilrecords(pupilindex).cyberlevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).designmanlevel = "AH" Or pupilrecords(pupilindex).designmanlevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).designmanlevel = "H" Or pupilrecords(pupilindex).designmanlevel = "46" Or pupilrecords(pupilindex).designmanlevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).designmanlevel = "N5" Or pupilrecords(pupilindex).designmanlevel = "45" Or pupilrecords(pupilindex).designmanlevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).designmanlevel = "N4" Or pupilrecords(pupilindex).designmanlevel = "44" Or pupilrecords(pupilindex).designmanlevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).designmanlevel = "N3" Or pupilrecords(pupilindex).designmanlevel = "43" Or pupilrecords(pupilindex).designmanlevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).dramalevel = "AH" Or pupilrecords(pupilindex).dramalevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).dramalevel = "H" Or pupilrecords(pupilindex).dramalevel = "46" Or pupilrecords(pupilindex).dramalevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).dramalevel = "N5" Or pupilrecords(pupilindex).dramalevel = "45" Or pupilrecords(pupilindex).dramalevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).dramalevel = "N4" Or pupilrecords(pupilindex).dramalevel = "44" Or pupilrecords(pupilindex).dramalevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).dramalevel = "N3" Or pupilrecords(pupilindex).dramalevel = "43" Or pupilrecords(pupilindex).dramalevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).energylevel = "AH" Or pupilrecords(pupilindex).energylevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).energylevel = "H" Or pupilrecords(pupilindex).energylevel = "46" Or pupilrecords(pupilindex).energylevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).energylevel = "N5" Or pupilrecords(pupilindex).energylevel = "45" Or pupilrecords(pupilindex).energylevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).energylevel = "N4" Or pupilrecords(pupilindex).energylevel = "44" Or pupilrecords(pupilindex).energylevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).energylevel = "N3" Or pupilrecords(pupilindex).energylevel = "43" Or pupilrecords(pupilindex).energylevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).englishlevel = "AH" Or pupilrecords(pupilindex).englishlevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).englishlevel = "H" Or pupilrecords(pupilindex).englishlevel = "46" Or pupilrecords(pupilindex).englishlevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).englishlevel = "N5" Or pupilrecords(pupilindex).englishlevel = "45" Or pupilrecords(pupilindex).englishlevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).englishlevel = "N4" Or pupilrecords(pupilindex).englishlevel = "44" Or pupilrecords(pupilindex).englishlevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).englishlevel = "N3" Or pupilrecords(pupilindex).englishlevel = "43" Or pupilrecords(pupilindex).englishlevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).esllevel = "AH" Or pupilrecords(pupilindex).esllevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).esllevel = "H" Or pupilrecords(pupilindex).esllevel = "46" Or pupilrecords(pupilindex).esllevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).esllevel = "N5" Or pupilrecords(pupilindex).esllevel = "45" Or pupilrecords(pupilindex).esllevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).esllevel = "N4" Or pupilrecords(pupilindex).esllevel = "44" Or pupilrecords(pupilindex).esllevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).esllevel = "N3" Or pupilrecords(pupilindex).esllevel = "43" Or pupilrecords(pupilindex).esllevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).frenchlevel = "AH" Or pupilrecords(pupilindex).frenchlevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).frenchlevel = "H" Or pupilrecords(pupilindex).frenchlevel = "46" Or pupilrecords(pupilindex).frenchlevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).frenchlevel = "N5" Or pupilrecords(pupilindex).frenchlevel = "45" Or pupilrecords(pupilindex).frenchlevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).frenchlevel = "N4" Or pupilrecords(pupilindex).frenchlevel = "44" Or pupilrecords(pupilindex).frenchlevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).frenchlevel = "N3" Or pupilrecords(pupilindex).frenchlevel = "43" Or pupilrecords(pupilindex).frenchlevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If


            If (pupilrecords(pupilindex).geographylevel = "AH" Or pupilrecords(pupilindex).geographylevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).geographylevel = "H" Or pupilrecords(pupilindex).geographylevel = "46" Or pupilrecords(pupilindex).geographylevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).geographylevel = "N5" Or pupilrecords(pupilindex).geographylevel = "45" Or pupilrecords(pupilindex).geographylevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).geographylevel = "N4" Or pupilrecords(pupilindex).geographylevel = "44" Or pupilrecords(pupilindex).geographylevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).geographylevel = "N3" Or pupilrecords(pupilindex).geographylevel = "43" Or pupilrecords(pupilindex).geographylevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).graphicslevel = "AH" Or pupilrecords(pupilindex).graphicslevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).graphicslevel = "H" Or pupilrecords(pupilindex).graphicslevel = "46" Or pupilrecords(pupilindex).graphicslevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).graphicslevel = "N5" Or pupilrecords(pupilindex).graphicslevel = "45" Or pupilrecords(pupilindex).graphicslevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).graphicslevel = "N4" Or pupilrecords(pupilindex).graphicslevel = "44" Or pupilrecords(pupilindex).graphicslevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).graphicslevel = "N3" Or pupilrecords(pupilindex).graphicslevel = "43" Or pupilrecords(pupilindex).graphicslevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).healthandfoodtechlevel = "AH" Or pupilrecords(pupilindex).healthandfoodtechlevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).healthandfoodtechlevel = "H" Or pupilrecords(pupilindex).healthandfoodtechlevel = "46" Or pupilrecords(pupilindex).healthandfoodtechlevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).healthandfoodtechlevel = "N5" Or pupilrecords(pupilindex).healthandfoodtechlevel = "45" Or pupilrecords(pupilindex).healthandfoodtechlevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).healthandfoodtechlevel = "N4" Or pupilrecords(pupilindex).healthandfoodtechlevel = "44" Or pupilrecords(pupilindex).healthandfoodtechlevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).healthandfoodtechlevel = "N3" Or pupilrecords(pupilindex).healthandfoodtechlevel = "43" Or pupilrecords(pupilindex).healthandfoodtechlevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).historylevel = "AH" Or pupilrecords(pupilindex).historylevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).historylevel = "H" Or pupilrecords(pupilindex).historylevel = "46" Or pupilrecords(pupilindex).historylevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).historylevel = "N5" Or pupilrecords(pupilindex).historylevel = "45" Or pupilrecords(pupilindex).historylevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).historylevel = "N4" Or pupilrecords(pupilindex).historylevel = "44" Or pupilrecords(pupilindex).historylevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).historylevel = "N3" Or pupilrecords(pupilindex).historylevel = "43" Or pupilrecords(pupilindex).historylevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).humanbiolevel = "AH" Or pupilrecords(pupilindex).humanbiolevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).humanbiolevel = "H" Or pupilrecords(pupilindex).humanbiolevel = "46" Or pupilrecords(pupilindex).humanbiolevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).humanbiolevel = "N5" Or pupilrecords(pupilindex).humanbiolevel = "45" Or pupilrecords(pupilindex).humanbiolevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).humanbiolevel = "N4" Or pupilrecords(pupilindex).humanbiolevel = "44" Or pupilrecords(pupilindex).humanbiolevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).humanbiolevel = "N3" Or pupilrecords(pupilindex).humanbiolevel = "43" Or pupilrecords(pupilindex).humanbiolevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).italianlevel = "AH" Or pupilrecords(pupilindex).italianlevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).italianlevel = "H" Or pupilrecords(pupilindex).italianlevel = "46" Or pupilrecords(pupilindex).italianlevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).italianlevel = "N5" Or pupilrecords(pupilindex).italianlevel = "45" Or pupilrecords(pupilindex).italianlevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).italianlevel = "N4" Or pupilrecords(pupilindex).italianlevel = "44" Or pupilrecords(pupilindex).italianlevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).italianlevel = "N3" Or pupilrecords(pupilindex).italianlevel = "43" Or pupilrecords(pupilindex).italianlevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).jewellerylevel = "AH" Or pupilrecords(pupilindex).jewellerylevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).jewellerylevel = "H" Or pupilrecords(pupilindex).jewellerylevel = "46" Or pupilrecords(pupilindex).jewellerylevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).jewellerylevel = "N5" Or pupilrecords(pupilindex).jewellerylevel = "45" Or pupilrecords(pupilindex).jewellerylevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).jewellerylevel = "N4" Or pupilrecords(pupilindex).jewellerylevel = "44" Or pupilrecords(pupilindex).jewellerylevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).jewellerylevel = "N3" Or pupilrecords(pupilindex).jewellerylevel = "43" Or pupilrecords(pupilindex).jewellerylevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).mathematicslevel = "AH" Or pupilrecords(pupilindex).mathematicslevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).mathematicslevel = "H" Or pupilrecords(pupilindex).mathematicslevel = "46" Or pupilrecords(pupilindex).mathematicslevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).mathematicslevel = "N5" Or pupilrecords(pupilindex).mathematicslevel = "45" Or pupilrecords(pupilindex).mathematicslevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).mathematicslevel = "N4" Or pupilrecords(pupilindex).mathematicslevel = "44" Or pupilrecords(pupilindex).mathematicslevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).mathematicslevel = "N3" Or pupilrecords(pupilindex).mathematicslevel = "43" Or pupilrecords(pupilindex).mathematicslevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).medialevel = "AH" Or pupilrecords(pupilindex).medialevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).medialevel = "H" Or pupilrecords(pupilindex).medialevel = "46" Or pupilrecords(pupilindex).medialevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).medialevel = "N5" Or pupilrecords(pupilindex).medialevel = "45" Or pupilrecords(pupilindex).medialevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).medialevel = "N4" Or pupilrecords(pupilindex).medialevel = "44" Or pupilrecords(pupilindex).medialevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).medialevel = "N3" Or pupilrecords(pupilindex).medialevel = "43" Or pupilrecords(pupilindex).medialevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).modernstudieslevel = "AH" Or pupilrecords(pupilindex).modernstudieslevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).modernstudieslevel = "H" Or pupilrecords(pupilindex).modernstudieslevel = "46" Or pupilrecords(pupilindex).modernstudieslevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).modernstudieslevel = "N5" Or pupilrecords(pupilindex).modernstudieslevel = "45" Or pupilrecords(pupilindex).modernstudieslevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).modernstudieslevel = "N4" Or pupilrecords(pupilindex).modernstudieslevel = "44" Or pupilrecords(pupilindex).modernstudieslevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).modernstudieslevel = "N3" Or pupilrecords(pupilindex).modernstudieslevel = "43" Or pupilrecords(pupilindex).modernstudieslevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).musiclevel = "AH" Or pupilrecords(pupilindex).musiclevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).musiclevel = "H" Or pupilrecords(pupilindex).musiclevel = "46" Or pupilrecords(pupilindex).musiclevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).musiclevel = "N5" Or pupilrecords(pupilindex).musiclevel = "45" Or pupilrecords(pupilindex).musiclevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).musiclevel = "N4" Or pupilrecords(pupilindex).musiclevel = "44" Or pupilrecords(pupilindex).musiclevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).musiclevel = "N3" Or pupilrecords(pupilindex).musiclevel = "43" Or pupilrecords(pupilindex).musiclevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).musicleadlevel = "AH" Or pupilrecords(pupilindex).musicleadlevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).musicleadlevel = "H" Or pupilrecords(pupilindex).musicleadlevel = "46" Or pupilrecords(pupilindex).musicleadlevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).musicleadlevel = "N5" Or pupilrecords(pupilindex).musicleadlevel = "45" Or pupilrecords(pupilindex).musicleadlevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).musicleadlevel = "N4" Or pupilrecords(pupilindex).musicleadlevel = "44" Or pupilrecords(pupilindex).musicleadlevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).musicleadlevel = "N3" Or pupilrecords(pupilindex).musicleadlevel = "43" Or pupilrecords(pupilindex).musicleadlevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).musictechlevel = "AH" Or pupilrecords(pupilindex).musictechlevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).musictechlevel = "H" Or pupilrecords(pupilindex).musictechlevel = "46" Or pupilrecords(pupilindex).musictechlevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).musictechlevel = "N5" Or pupilrecords(pupilindex).musictechlevel = "45" Or pupilrecords(pupilindex).musictechlevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).musictechlevel = "N4" Or pupilrecords(pupilindex).musictechlevel = "44" Or pupilrecords(pupilindex).musictechlevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).musictechlevel = "N3" Or pupilrecords(pupilindex).musictechlevel = "43" Or pupilrecords(pupilindex).musictechlevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).fitnesslevel = "AH" Or pupilrecords(pupilindex).fitnesslevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).fitnesslevel = "H" Or pupilrecords(pupilindex).fitnesslevel = "46" Or pupilrecords(pupilindex).fitnesslevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).fitnesslevel = "N5" Or pupilrecords(pupilindex).fitnesslevel = "45" Or pupilrecords(pupilindex).fitnesslevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).fitnesslevel = "N4" Or pupilrecords(pupilindex).fitnesslevel = "44" Or pupilrecords(pupilindex).fitnesslevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).fitnesslevel = "N3" Or pupilrecords(pupilindex).fitnesslevel = "43" Or pupilrecords(pupilindex).fitnesslevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).pelevel = "AH" Or pupilrecords(pupilindex).pelevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).pelevel = "H" Or pupilrecords(pupilindex).pelevel = "46" Or pupilrecords(pupilindex).pelevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).pelevel = "N5" Or pupilrecords(pupilindex).pelevel = "45" Or pupilrecords(pupilindex).pelevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).pelevel = "N4" Or pupilrecords(pupilindex).pelevel = "44" Or pupilrecords(pupilindex).pelevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).pelevel = "N3" Or pupilrecords(pupilindex).pelevel = "43" Or pupilrecords(pupilindex).pelevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).personalDevlevel = "AH" Or pupilrecords(pupilindex).personalDevlevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).personalDevlevel = "H" Or pupilrecords(pupilindex).personalDevlevel = "46" Or pupilrecords(pupilindex).personalDevlevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).personalDevlevel = "N5" Or pupilrecords(pupilindex).personalDevlevel = "45" Or pupilrecords(pupilindex).personalDevlevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).personalDevlevel = "N4" Or pupilrecords(pupilindex).personalDevlevel = "44" Or pupilrecords(pupilindex).personalDevlevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).personalDevlevel = "N3" Or pupilrecords(pupilindex).personalDevlevel = "43" Or pupilrecords(pupilindex).personalDevlevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).photographylevel = "AH" Or pupilrecords(pupilindex).photographylevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).photographylevel = "H" Or pupilrecords(pupilindex).photographylevel = "46" Or pupilrecords(pupilindex).photographylevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).photographylevel = "N5" Or pupilrecords(pupilindex).photographylevel = "45" Or pupilrecords(pupilindex).photographylevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).photographylevel = "N4" Or pupilrecords(pupilindex).photographylevel = "44" Or pupilrecords(pupilindex).photographylevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).photographylevel = "N3" Or pupilrecords(pupilindex).photographylevel = "43" Or pupilrecords(pupilindex).photographylevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).physicslevel = "AH" Or pupilrecords(pupilindex).physicslevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).physicslevel = "H" Or pupilrecords(pupilindex).physicslevel = "46" Or pupilrecords(pupilindex).physicslevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).physicslevel = "N5" Or pupilrecords(pupilindex).physicslevel = "45" Or pupilrecords(pupilindex).physicslevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).physicslevel = "N4" Or pupilrecords(pupilindex).physicslevel = "44" Or pupilrecords(pupilindex).physicslevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).physicslevel = "N3" Or pupilrecords(pupilindex).physicslevel = "43" Or pupilrecords(pupilindex).physicslevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).politicslevel = "AH" Or pupilrecords(pupilindex).politicslevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).politicslevel = "H" Or pupilrecords(pupilindex).politicslevel = "46" Or pupilrecords(pupilindex).politicslevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).politicslevel = "N5" Or pupilrecords(pupilindex).politicslevel = "45" Or pupilrecords(pupilindex).politicslevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).politicslevel = "N4" Or pupilrecords(pupilindex).politicslevel = "44" Or pupilrecords(pupilindex).politicslevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).politicslevel = "N3" Or pupilrecords(pupilindex).politicslevel = "43" Or pupilrecords(pupilindex).politicslevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).metalworklevel = "AH" Or pupilrecords(pupilindex).metalworklevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).metalworklevel = "H" Or pupilrecords(pupilindex).metalworklevel = "46" Or pupilrecords(pupilindex).metalworklevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).metalworklevel = "N5" Or pupilrecords(pupilindex).metalworklevel = "45" Or pupilrecords(pupilindex).metalworklevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).metalworklevel = "N4" Or pupilrecords(pupilindex).metalworklevel = "44" Or pupilrecords(pupilindex).metalworklevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).metalworklevel = "N3" Or pupilrecords(pupilindex).metalworklevel = "43" Or pupilrecords(pupilindex).metalworklevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).pracwoodlevel = "AH" Or pupilrecords(pupilindex).pracwoodlevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).pracwoodlevel = "H" Or pupilrecords(pupilindex).pracwoodlevel = "46" Or pupilrecords(pupilindex).pracwoodlevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).pracwoodlevel = "N5" Or pupilrecords(pupilindex).pracwoodlevel = "45" Or pupilrecords(pupilindex).pracwoodlevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).pracwoodlevel = "N4" Or pupilrecords(pupilindex).pracwoodlevel = "44" Or pupilrecords(pupilindex).pracwoodlevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).pracwoodlevel = "N3" Or pupilrecords(pupilindex).pracwoodlevel = "43" Or pupilrecords(pupilindex).pracwoodlevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).relevel = "AH" Or pupilrecords(pupilindex).relevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).relevel = "H" Or pupilrecords(pupilindex).relevel = "46" Or pupilrecords(pupilindex).relevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).relevel = "N5" Or pupilrecords(pupilindex).relevel = "45" Or pupilrecords(pupilindex).relevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).relevel = "N4" Or pupilrecords(pupilindex).relevel = "44" Or pupilrecords(pupilindex).relevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).relevel = "N3" Or pupilrecords(pupilindex).relevel = "43" Or pupilrecords(pupilindex).relevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If


            If (pupilrecords(pupilindex).refereeinglevel = "AH" Or pupilrecords(pupilindex).refereeinglevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).refereeinglevel = "H" Or pupilrecords(pupilindex).refereeinglevel = "46" Or pupilrecords(pupilindex).refereeinglevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).refereeinglevel = "N5" Or pupilrecords(pupilindex).refereeinglevel = "45" Or pupilrecords(pupilindex).refereeinglevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).refereeinglevel = "N4" Or pupilrecords(pupilindex).refereeinglevel = "44" Or pupilrecords(pupilindex).refereeinglevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).refereeinglevel = "N3" Or pupilrecords(pupilindex).refereeinglevel = "43" Or pupilrecords(pupilindex).refereeinglevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).skillsforworkFARElevel = "AH" Or pupilrecords(pupilindex).skillsforworkFARElevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).skillsforworkFARElevel = "H" Or pupilrecords(pupilindex).skillsforworkFARElevel = "46" Or pupilrecords(pupilindex).skillsforworkFARElevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).skillsforworkFARElevel = "N5" Or pupilrecords(pupilindex).skillsforworkFARElevel = "45" Or pupilrecords(pupilindex).skillsforworkFARElevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).skillsforworkFARElevel = "N4" Or pupilrecords(pupilindex).skillsforworkFARElevel = "44" Or pupilrecords(pupilindex).skillsforworkFARElevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).skillsforworkFARElevel = "N3" Or pupilrecords(pupilindex).skillsforworkFARElevel = "43" Or pupilrecords(pupilindex).skillsforworkFARElevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).sociologylevel = "AH" Or pupilrecords(pupilindex).sociologylevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).sociologylevel = "H" Or pupilrecords(pupilindex).sociologylevel = "46" Or pupilrecords(pupilindex).sociologylevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).sociologylevel = "N5" Or pupilrecords(pupilindex).sociologylevel = "45" Or pupilrecords(pupilindex).sociologylevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).sociologylevel = "N4" Or pupilrecords(pupilindex).sociologylevel = "44" Or pupilrecords(pupilindex).sociologylevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).sociologylevel = "N3" Or pupilrecords(pupilindex).sociologylevel = "43" Or pupilrecords(pupilindex).sociologylevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).spanishlevel = "AH" Or pupilrecords(pupilindex).spanishlevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).spanishlevel = "H" Or pupilrecords(pupilindex).spanishlevel = "46" Or pupilrecords(pupilindex).spanishlevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).spanishlevel = "N5" Or pupilrecords(pupilindex).spanishlevel = "45" Or pupilrecords(pupilindex).spanishlevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).spanishlevel = "N4" Or pupilrecords(pupilindex).spanishlevel = "44" Or pupilrecords(pupilindex).spanishlevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).spanishlevel = "N3" Or pupilrecords(pupilindex).spanishlevel = "43" Or pupilrecords(pupilindex).spanishlevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).sportsleadlevel = "AH" Or pupilrecords(pupilindex).sportsleadlevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).sportsleadlevel = "H" Or pupilrecords(pupilindex).sportsleadlevel = "46" Or pupilrecords(pupilindex).sportsleadlevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).sportsleadlevel = "N5" Or pupilrecords(pupilindex).sportsleadlevel = "45" Or pupilrecords(pupilindex).sportsleadlevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).sportsleadlevel = "N4" Or pupilrecords(pupilindex).sportsleadlevel = "44" Or pupilrecords(pupilindex).sportsleadlevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).sportsleadlevel = "N3" Or pupilrecords(pupilindex).sportsleadlevel = "43" Or pupilrecords(pupilindex).sportsleadlevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).urdulevel = "AH" Or pupilrecords(pupilindex).urdulevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).urdulevel = "H" Or pupilrecords(pupilindex).urdulevel = "46" Or pupilrecords(pupilindex).urdulevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).urdulevel = "N5" Or pupilrecords(pupilindex).urdulevel = "45" Or pupilrecords(pupilindex).urdulevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).urdulevel = "N4" Or pupilrecords(pupilindex).urdulevel = "44" Or pupilrecords(pupilindex).urdulevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).urdulevel = "N3" Or pupilrecords(pupilindex).urdulevel = "43" Or pupilrecords(pupilindex).urdulevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

            If (pupilrecords(pupilindex).visuallevel = "AH" Or pupilrecords(pupilindex).visuallevel = "47") Then
                pupilrecords(pupilindex).studyinglevel7 += 1
            ElseIf (pupilrecords(pupilindex).visuallevel = "H" Or pupilrecords(pupilindex).visuallevel = "46" Or pupilrecords(pupilindex).visuallevel = "NC6") Then
                pupilrecords(pupilindex).studyinglevel6 += 1
            ElseIf (pupilrecords(pupilindex).visuallevel = "N5" Or pupilrecords(pupilindex).visuallevel = "45" Or pupilrecords(pupilindex).visuallevel = "NC5") Then
                pupilrecords(pupilindex).studyinglevel5 += 1
            ElseIf (pupilrecords(pupilindex).visuallevel = "N4" Or pupilrecords(pupilindex).visuallevel = "44" Or pupilrecords(pupilindex).visuallevel = "NC4") Then
                pupilrecords(pupilindex).studyinglevel4 += 1
            ElseIf (pupilrecords(pupilindex).visuallevel = "N3" Or pupilrecords(pupilindex).visuallevel = "43" Or pupilrecords(pupilindex).visuallevel = "NC3") Then
                pupilrecords(pupilindex).studyinglevel3 += 1
            End If

        Next




        For pupilindex = 0 To pupilno - 1

            Select Case pupilrecords(pupilindex).accountinglevel

                Case "AH"
                    If pupilrecords(pupilindex).accounting = "6" Or pupilrecords(pupilindex).accounting = "5" Or pupilrecords(pupilindex).accounting = "4" Or pupilrecords(pupilindex).accounting = "3" Or pupilrecords(pupilindex).accounting = "2" Or pupilrecords(pupilindex).accounting = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).accounting = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).accounting = "6" Or pupilrecords(pupilindex).accounting = "5" Or pupilrecords(pupilindex).accounting = "4" Or pupilrecords(pupilindex).accounting = "3" Or pupilrecords(pupilindex).accounting = "2" Or pupilrecords(pupilindex).accounting = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).accounting = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).accounting = "6" Or pupilrecords(pupilindex).accounting = "5" Or pupilrecords(pupilindex).accounting = "4" Or pupilrecords(pupilindex).accounting = "3" Or pupilrecords(pupilindex).accounting = "2" Or pupilrecords(pupilindex).accounting = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).accounting = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).accounting = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).accounting = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).accounting = "6" Or pupilrecords(pupilindex).accounting = "5" Or pupilrecords(pupilindex).accounting = "4" Or pupilrecords(pupilindex).accounting = "3" Or pupilrecords(pupilindex).accounting = "2" Or pupilrecords(pupilindex).accounting = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select

            Select Case pupilrecords(pupilindex).adminlevel

                Case "AH"
                    If pupilrecords(pupilindex).admin = "6" Or pupilrecords(pupilindex).admin = "5" Or pupilrecords(pupilindex).admin = "4" Or pupilrecords(pupilindex).admin = "3" Or pupilrecords(pupilindex).admin = "2" Or pupilrecords(pupilindex).admin = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).admin = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).admin = "6" Or pupilrecords(pupilindex).admin = "5" Or pupilrecords(pupilindex).admin = "4" Or pupilrecords(pupilindex).admin = "3" Or pupilrecords(pupilindex).admin = "2" Or pupilrecords(pupilindex).admin = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).admin = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).admin = "6" Or pupilrecords(pupilindex).admin = "5" Or pupilrecords(pupilindex).admin = "4" Or pupilrecords(pupilindex).admin = "3" Or pupilrecords(pupilindex).admin = "2" Or pupilrecords(pupilindex).admin = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).admin = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).admin = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).admin = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).admin = "6" Or pupilrecords(pupilindex).admin = "5" Or pupilrecords(pupilindex).admin = "4" Or pupilrecords(pupilindex).admin = "3" Or pupilrecords(pupilindex).admin = "2" Or pupilrecords(pupilindex).admin = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If

            End Select

            Select Case pupilrecords(pupilindex).artlevel

                Case "AH"
                    If pupilrecords(pupilindex).art = "6" Or pupilrecords(pupilindex).art = "5" Or pupilrecords(pupilindex).art = "4" Or pupilrecords(pupilindex).art = "3" Or pupilrecords(pupilindex).art = "2" Or pupilrecords(pupilindex).art = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).art = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).art = "6" Or pupilrecords(pupilindex).art = "5" Or pupilrecords(pupilindex).art = "4" Or pupilrecords(pupilindex).art = "3" Or pupilrecords(pupilindex).art = "2" Or pupilrecords(pupilindex).art = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).art = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).art = "6" Or pupilrecords(pupilindex).art = "5" Or pupilrecords(pupilindex).art = "4" Or pupilrecords(pupilindex).art = "3" Or pupilrecords(pupilindex).art = "2" Or pupilrecords(pupilindex).art = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).art = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).art = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).art = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).art = "6" Or pupilrecords(pupilindex).art = "5" Or pupilrecords(pupilindex).art = "4" Or pupilrecords(pupilindex).art = "3" Or pupilrecords(pupilindex).art = "2" Or pupilrecords(pupilindex).art = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select


            Select Case pupilrecords(pupilindex).baristalevel

                Case "AH"
                    If pupilrecords(pupilindex).barista = "6" Or pupilrecords(pupilindex).barista = "5" Or pupilrecords(pupilindex).barista = "4" Or pupilrecords(pupilindex).barista = "3" Or pupilrecords(pupilindex).barista = "2" Or pupilrecords(pupilindex).barista = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).barista = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).barista = "6" Or pupilrecords(pupilindex).barista = "5" Or pupilrecords(pupilindex).barista = "4" Or pupilrecords(pupilindex).barista = "3" Or pupilrecords(pupilindex).barista = "2" Or pupilrecords(pupilindex).barista = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).barista = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).barista = "6" Or pupilrecords(pupilindex).barista = "5" Or pupilrecords(pupilindex).barista = "4" Or pupilrecords(pupilindex).barista = "3" Or pupilrecords(pupilindex).barista = "2" Or pupilrecords(pupilindex).barista = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).barista = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).barista = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).barista = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If

                Case "NC5"
                    If pupilrecords(pupilindex).barista = "6" Or pupilrecords(pupilindex).barista = "5" Or pupilrecords(pupilindex).barista = "4" Or pupilrecords(pupilindex).barista = "3" Or pupilrecords(pupilindex).barista = "2" Or pupilrecords(pupilindex).barista = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If

            End Select

            Select Case pupilrecords(pupilindex).biologylevel

                Case "AH"
                    If pupilrecords(pupilindex).biology = "6" Or pupilrecords(pupilindex).biology = "5" Or pupilrecords(pupilindex).biology = "4" Or pupilrecords(pupilindex).biology = "3" Or pupilrecords(pupilindex).biology = "2" Or pupilrecords(pupilindex).biology = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).biology = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).biology = "6" Or pupilrecords(pupilindex).biology = "5" Or pupilrecords(pupilindex).biology = "4" Or pupilrecords(pupilindex).biology = "3" Or pupilrecords(pupilindex).biology = "2" Or pupilrecords(pupilindex).biology = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).biology = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).biology = "6" Or pupilrecords(pupilindex).biology = "5" Or pupilrecords(pupilindex).biology = "4" Or pupilrecords(pupilindex).biology = "3" Or pupilrecords(pupilindex).biology = "2" Or pupilrecords(pupilindex).biology = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).biology = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).biology = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).biology = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).biology = "6" Or pupilrecords(pupilindex).biology = "5" Or pupilrecords(pupilindex).biology = "4" Or pupilrecords(pupilindex).biology = "3" Or pupilrecords(pupilindex).biology = "2" Or pupilrecords(pupilindex).biology = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If

            End Select

            Select Case pupilrecords(pupilindex).businesslevel

                Case "AH"
                    If pupilrecords(pupilindex).business = "6" Or pupilrecords(pupilindex).business = "5" Or pupilrecords(pupilindex).business = "4" Or pupilrecords(pupilindex).business = "3" Or pupilrecords(pupilindex).business = "2" Or pupilrecords(pupilindex).business = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).business = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).business = "6" Or pupilrecords(pupilindex).business = "5" Or pupilrecords(pupilindex).business = "4" Or pupilrecords(pupilindex).business = "3" Or pupilrecords(pupilindex).business = "2" Or pupilrecords(pupilindex).business = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).business = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).business = "6" Or pupilrecords(pupilindex).business = "5" Or pupilrecords(pupilindex).business = "4" Or pupilrecords(pupilindex).business = "3" Or pupilrecords(pupilindex).business = "2" Or pupilrecords(pupilindex).business = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).business = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).business = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).business = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).business = "6" Or pupilrecords(pupilindex).business = "5" Or pupilrecords(pupilindex).business = "4" Or pupilrecords(pupilindex).business = "3" Or pupilrecords(pupilindex).business = "2" Or pupilrecords(pupilindex).business = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select

            Select Case pupilrecords(pupilindex).chemistrylevel

                Case "AH"
                    If pupilrecords(pupilindex).chemistry = "6" Or pupilrecords(pupilindex).chemistry = "5" Or pupilrecords(pupilindex).chemistry = "4" Or pupilrecords(pupilindex).chemistry = "3" Or pupilrecords(pupilindex).chemistry = "2" Or pupilrecords(pupilindex).chemistry = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).chemistry = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).chemistry = "6" Or pupilrecords(pupilindex).chemistry = "5" Or pupilrecords(pupilindex).chemistry = "4" Or pupilrecords(pupilindex).chemistry = "3" Or pupilrecords(pupilindex).chemistry = "2" Or pupilrecords(pupilindex).chemistry = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).chemistry = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).chemistry = "6" Or pupilrecords(pupilindex).chemistry = "5" Or pupilrecords(pupilindex).chemistry = "4" Or pupilrecords(pupilindex).chemistry = "3" Or pupilrecords(pupilindex).chemistry = "2" Or pupilrecords(pupilindex).chemistry = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).chemistry = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).chemistry = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).chemistry = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).chemistry = "6" Or pupilrecords(pupilindex).chemistry = "5" Or pupilrecords(pupilindex).chemistry = "4" Or pupilrecords(pupilindex).chemistry = "3" Or pupilrecords(pupilindex).chemistry = "2" Or pupilrecords(pupilindex).chemistry = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select

            Select Case pupilrecords(pupilindex).computinglevel

                Case "AH"
                    If pupilrecords(pupilindex).computing = "6" Or pupilrecords(pupilindex).computing = "5" Or pupilrecords(pupilindex).computing = "4" Or pupilrecords(pupilindex).computing = "3" Or pupilrecords(pupilindex).computing = "2" Or pupilrecords(pupilindex).computing = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).computing = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).computing = "6" Or pupilrecords(pupilindex).computing = "5" Or pupilrecords(pupilindex).computing = "4" Or pupilrecords(pupilindex).computing = "3" Or pupilrecords(pupilindex).computing = "2" Or pupilrecords(pupilindex).computing = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).computing = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).computing = "6" Or pupilrecords(pupilindex).computing = "5" Or pupilrecords(pupilindex).computing = "4" Or pupilrecords(pupilindex).computing = "3" Or pupilrecords(pupilindex).computing = "2" Or pupilrecords(pupilindex).computing = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).computing = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).computing = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).computing = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).computing = "6" Or pupilrecords(pupilindex).computing = "5" Or pupilrecords(pupilindex).computing = "4" Or pupilrecords(pupilindex).computing = "3" Or pupilrecords(pupilindex).computing = "2" Or pupilrecords(pupilindex).computing = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select

            Select Case pupilrecords(pupilindex).criminologylevel

                Case "AH"
                    If pupilrecords(pupilindex).criminology = "6" Or pupilrecords(pupilindex).criminology = "5" Or pupilrecords(pupilindex).criminology = "4" Or pupilrecords(pupilindex).criminology = "3" Or pupilrecords(pupilindex).criminology = "2" Or pupilrecords(pupilindex).criminology = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).criminology = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).criminology = "6" Or pupilrecords(pupilindex).criminology = "5" Or pupilrecords(pupilindex).criminology = "4" Or pupilrecords(pupilindex).criminology = "3" Or pupilrecords(pupilindex).criminology = "2" Or pupilrecords(pupilindex).criminology = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).criminology = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).criminology = "6" Or pupilrecords(pupilindex).criminology = "5" Or pupilrecords(pupilindex).criminology = "4" Or pupilrecords(pupilindex).criminology = "3" Or pupilrecords(pupilindex).criminology = "2" Or pupilrecords(pupilindex).criminology = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).criminology = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).criminology = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).criminology = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).criminology = "6" Or pupilrecords(pupilindex).criminology = "5" Or pupilrecords(pupilindex).criminology = "4" Or pupilrecords(pupilindex).criminology = "3" Or pupilrecords(pupilindex).criminology = "2" Or pupilrecords(pupilindex).criminology = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select


            Select Case pupilrecords(pupilindex).cyberlevel

                Case "AH"
                    If pupilrecords(pupilindex).cyber = "6" Or pupilrecords(pupilindex).cyber = "5" Or pupilrecords(pupilindex).cyber = "4" Or pupilrecords(pupilindex).cyber = "3" Or pupilrecords(pupilindex).cyber = "2" Or pupilrecords(pupilindex).cyber = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).cyber = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).cyber = "6" Or pupilrecords(pupilindex).cyber = "5" Or pupilrecords(pupilindex).cyber = "4" Or pupilrecords(pupilindex).cyber = "3" Or pupilrecords(pupilindex).cyber = "2" Or pupilrecords(pupilindex).cyber = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).cyber = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).cyber = "6" Or pupilrecords(pupilindex).cyber = "5" Or pupilrecords(pupilindex).cyber = "4" Or pupilrecords(pupilindex).cyber = "3" Or pupilrecords(pupilindex).cyber = "2" Or pupilrecords(pupilindex).cyber = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).cyber = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).cyber = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).cyber = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).cyber = "6" Or pupilrecords(pupilindex).cyber = "5" Or pupilrecords(pupilindex).cyber = "4" Or pupilrecords(pupilindex).cyber = "3" Or pupilrecords(pupilindex).cyber = "2" Or pupilrecords(pupilindex).cyber = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select

            Select Case pupilrecords(pupilindex).designmanlevel

                Case "AH"
                    If pupilrecords(pupilindex).designman = "6" Or pupilrecords(pupilindex).designman = "5" Or pupilrecords(pupilindex).designman = "4" Or pupilrecords(pupilindex).designman = "3" Or pupilrecords(pupilindex).designman = "2" Or pupilrecords(pupilindex).designman = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).designman = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).designman = "6" Or pupilrecords(pupilindex).designman = "5" Or pupilrecords(pupilindex).designman = "4" Or pupilrecords(pupilindex).designman = "3" Or pupilrecords(pupilindex).designman = "2" Or pupilrecords(pupilindex).designman = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).designman = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).designman = "6" Or pupilrecords(pupilindex).designman = "5" Or pupilrecords(pupilindex).designman = "4" Or pupilrecords(pupilindex).designman = "3" Or pupilrecords(pupilindex).designman = "2" Or pupilrecords(pupilindex).designman = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).designman = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).designman = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).designman = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).designman = "6" Or pupilrecords(pupilindex).designman = "5" Or pupilrecords(pupilindex).designman = "4" Or pupilrecords(pupilindex).designman = "3" Or pupilrecords(pupilindex).designman = "2" Or pupilrecords(pupilindex).designman = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select

            Select Case pupilrecords(pupilindex).dramalevel

                Case "AH"
                    If pupilrecords(pupilindex).drama = "6" Or pupilrecords(pupilindex).drama = "5" Or pupilrecords(pupilindex).drama = "4" Or pupilrecords(pupilindex).drama = "3" Or pupilrecords(pupilindex).drama = "2" Or pupilrecords(pupilindex).drama = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).drama = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).drama = "6" Or pupilrecords(pupilindex).drama = "5" Or pupilrecords(pupilindex).drama = "4" Or pupilrecords(pupilindex).drama = "3" Or pupilrecords(pupilindex).drama = "2" Or pupilrecords(pupilindex).drama = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).drama = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).drama = "6" Or pupilrecords(pupilindex).drama = "5" Or pupilrecords(pupilindex).drama = "4" Or pupilrecords(pupilindex).drama = "3" Or pupilrecords(pupilindex).drama = "2" Or pupilrecords(pupilindex).drama = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).drama = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).drama = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).drama = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).drama = "6" Or pupilrecords(pupilindex).drama = "5" Or pupilrecords(pupilindex).drama = "4" Or pupilrecords(pupilindex).drama = "3" Or pupilrecords(pupilindex).drama = "2" Or pupilrecords(pupilindex).drama = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select

            Select Case pupilrecords(pupilindex).energylevel

                Case "AH"
                    If pupilrecords(pupilindex).energy = "6" Or pupilrecords(pupilindex).energy = "5" Or pupilrecords(pupilindex).energy = "4" Or pupilrecords(pupilindex).energy = "3" Or pupilrecords(pupilindex).energy = "2" Or pupilrecords(pupilindex).energy = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).energy = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).energy = "6" Or pupilrecords(pupilindex).energy = "5" Or pupilrecords(pupilindex).energy = "4" Or pupilrecords(pupilindex).energy = "3" Or pupilrecords(pupilindex).energy = "2" Or pupilrecords(pupilindex).energy = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).energy = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).energy = "6" Or pupilrecords(pupilindex).energy = "5" Or pupilrecords(pupilindex).energy = "4" Or pupilrecords(pupilindex).energy = "3" Or pupilrecords(pupilindex).energy = "2" Or pupilrecords(pupilindex).energy = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).energy = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).energy = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).energy = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).energy = "6" Or pupilrecords(pupilindex).energy = "5" Or pupilrecords(pupilindex).energy = "4" Or pupilrecords(pupilindex).energy = "3" Or pupilrecords(pupilindex).energy = "2" Or pupilrecords(pupilindex).energy = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select

            Select Case pupilrecords(pupilindex).englishlevel

                Case "AH"
                    If pupilrecords(pupilindex).english = "6" Or pupilrecords(pupilindex).english = "5" Or pupilrecords(pupilindex).english = "4" Or pupilrecords(pupilindex).english = "3" Or pupilrecords(pupilindex).english = "2" Or pupilrecords(pupilindex).english = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).english = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).english = "6" Or pupilrecords(pupilindex).english = "5" Or pupilrecords(pupilindex).english = "4" Or pupilrecords(pupilindex).english = "3" Or pupilrecords(pupilindex).english = "2" Or pupilrecords(pupilindex).english = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).english = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).english = "6" Or pupilrecords(pupilindex).english = "5" Or pupilrecords(pupilindex).english = "4" Or pupilrecords(pupilindex).english = "3" Or pupilrecords(pupilindex).english = "2" Or pupilrecords(pupilindex).english = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).english = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).english = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).english = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).english = "6" Or pupilrecords(pupilindex).english = "5" Or pupilrecords(pupilindex).english = "4" Or pupilrecords(pupilindex).english = "3" Or pupilrecords(pupilindex).english = "2" Or pupilrecords(pupilindex).english = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select

            Select Case pupilrecords(pupilindex).esllevel

                Case "AH"
                    If pupilrecords(pupilindex).esl = "6" Or pupilrecords(pupilindex).esl = "5" Or pupilrecords(pupilindex).esl = "4" Or pupilrecords(pupilindex).esl = "3" Or pupilrecords(pupilindex).esl = "2" Or pupilrecords(pupilindex).esl = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).esl = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).esl = "6" Or pupilrecords(pupilindex).esl = "5" Or pupilrecords(pupilindex).esl = "4" Or pupilrecords(pupilindex).esl = "3" Or pupilrecords(pupilindex).esl = "2" Or pupilrecords(pupilindex).esl = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).esl = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).esl = "6" Or pupilrecords(pupilindex).esl = "5" Or pupilrecords(pupilindex).esl = "4" Or pupilrecords(pupilindex).esl = "3" Or pupilrecords(pupilindex).esl = "2" Or pupilrecords(pupilindex).esl = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).esl = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).esl = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).esl = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).esl = "6" Or pupilrecords(pupilindex).esl = "5" Or pupilrecords(pupilindex).esl = "4" Or pupilrecords(pupilindex).esl = "3" Or pupilrecords(pupilindex).esl = "2" Or pupilrecords(pupilindex).esl = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select

            Select Case pupilrecords(pupilindex).frenchlevel

                Case "AH"
                    If pupilrecords(pupilindex).french = "6" Or pupilrecords(pupilindex).french = "5" Or pupilrecords(pupilindex).french = "4" Or pupilrecords(pupilindex).french = "3" Or pupilrecords(pupilindex).french = "2" Or pupilrecords(pupilindex).french = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).french = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).french = "6" Or pupilrecords(pupilindex).french = "5" Or pupilrecords(pupilindex).french = "4" Or pupilrecords(pupilindex).french = "3" Or pupilrecords(pupilindex).french = "2" Or pupilrecords(pupilindex).french = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).french = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).french = "6" Or pupilrecords(pupilindex).french = "5" Or pupilrecords(pupilindex).french = "4" Or pupilrecords(pupilindex).french = "3" Or pupilrecords(pupilindex).french = "2" Or pupilrecords(pupilindex).french = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).french = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).french = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).french = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).french = "6" Or pupilrecords(pupilindex).french = "5" Or pupilrecords(pupilindex).french = "4" Or pupilrecords(pupilindex).french = "3" Or pupilrecords(pupilindex).french = "2" Or pupilrecords(pupilindex).french = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select



            Select Case pupilrecords(pupilindex).geographylevel

                Case "AH"
                    If pupilrecords(pupilindex).geography = "6" Or pupilrecords(pupilindex).geography = "5" Or pupilrecords(pupilindex).geography = "4" Or pupilrecords(pupilindex).geography = "3" Or pupilrecords(pupilindex).geography = "2" Or pupilrecords(pupilindex).geography = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).geography = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).geography = "6" Or pupilrecords(pupilindex).geography = "5" Or pupilrecords(pupilindex).geography = "4" Or pupilrecords(pupilindex).geography = "3" Or pupilrecords(pupilindex).geography = "2" Or pupilrecords(pupilindex).geography = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).geography = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).geography = "6" Or pupilrecords(pupilindex).geography = "5" Or pupilrecords(pupilindex).geography = "4" Or pupilrecords(pupilindex).geography = "3" Or pupilrecords(pupilindex).geography = "2" Or pupilrecords(pupilindex).geography = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).geography = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).geography = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).geography = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).geography = "6" Or pupilrecords(pupilindex).geography = "5" Or pupilrecords(pupilindex).geography = "4" Or pupilrecords(pupilindex).geography = "3" Or pupilrecords(pupilindex).geography = "2" Or pupilrecords(pupilindex).geography = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select

            Select Case pupilrecords(pupilindex).graphicslevel

                Case "AH"
                    If pupilrecords(pupilindex).graphics = "6" Or pupilrecords(pupilindex).graphics = "5" Or pupilrecords(pupilindex).graphics = "4" Or pupilrecords(pupilindex).graphics = "3" Or pupilrecords(pupilindex).graphics = "2" Or pupilrecords(pupilindex).graphics = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).graphics = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).graphics = "6" Or pupilrecords(pupilindex).graphics = "5" Or pupilrecords(pupilindex).graphics = "4" Or pupilrecords(pupilindex).graphics = "3" Or pupilrecords(pupilindex).graphics = "2" Or pupilrecords(pupilindex).graphics = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).graphics = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).graphics = "6" Or pupilrecords(pupilindex).graphics = "5" Or pupilrecords(pupilindex).graphics = "4" Or pupilrecords(pupilindex).graphics = "3" Or pupilrecords(pupilindex).graphics = "2" Or pupilrecords(pupilindex).graphics = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).graphics = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).graphics = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).graphics = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).graphics = "6" Or pupilrecords(pupilindex).graphics = "5" Or pupilrecords(pupilindex).graphics = "4" Or pupilrecords(pupilindex).graphics = "3" Or pupilrecords(pupilindex).graphics = "2" Or pupilrecords(pupilindex).graphics = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select

            Select Case pupilrecords(pupilindex).healthandfoodtechlevel

                Case "AH"
                    If pupilrecords(pupilindex).healthandfoodtech = "6" Or pupilrecords(pupilindex).healthandfoodtech = "5" Or pupilrecords(pupilindex).healthandfoodtech = "4" Or pupilrecords(pupilindex).healthandfoodtech = "3" Or pupilrecords(pupilindex).healthandfoodtech = "2" Or pupilrecords(pupilindex).healthandfoodtech = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).healthandfoodtech = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).healthandfoodtech = "6" Or pupilrecords(pupilindex).healthandfoodtech = "5" Or pupilrecords(pupilindex).healthandfoodtech = "4" Or pupilrecords(pupilindex).healthandfoodtech = "3" Or pupilrecords(pupilindex).healthandfoodtech = "2" Or pupilrecords(pupilindex).healthandfoodtech = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).healthandfoodtech = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).healthandfoodtech = "6" Or pupilrecords(pupilindex).healthandfoodtech = "5" Or pupilrecords(pupilindex).healthandfoodtech = "4" Or pupilrecords(pupilindex).healthandfoodtech = "3" Or pupilrecords(pupilindex).healthandfoodtech = "2" Or pupilrecords(pupilindex).healthandfoodtech = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).healthandfoodtech = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).healthandfoodtech = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).healthandfoodtech = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).healthandfoodtech = "6" Or pupilrecords(pupilindex).healthandfoodtech = "5" Or pupilrecords(pupilindex).healthandfoodtech = "4" Or pupilrecords(pupilindex).healthandfoodtech = "3" Or pupilrecords(pupilindex).healthandfoodtech = "2" Or pupilrecords(pupilindex).healthandfoodtech = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select

            Select Case pupilrecords(pupilindex).historylevel

                Case "AH"
                    If pupilrecords(pupilindex).history = "6" Or pupilrecords(pupilindex).history = "5" Or pupilrecords(pupilindex).history = "4" Or pupilrecords(pupilindex).history = "3" Or pupilrecords(pupilindex).history = "2" Or pupilrecords(pupilindex).history = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).history = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).history = "6" Or pupilrecords(pupilindex).history = "5" Or pupilrecords(pupilindex).history = "4" Or pupilrecords(pupilindex).history = "3" Or pupilrecords(pupilindex).history = "2" Or pupilrecords(pupilindex).history = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).history = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).history = "6" Or pupilrecords(pupilindex).history = "5" Or pupilrecords(pupilindex).history = "4" Or pupilrecords(pupilindex).history = "3" Or pupilrecords(pupilindex).history = "2" Or pupilrecords(pupilindex).history = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).history = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).history = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).history = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).history = "6" Or pupilrecords(pupilindex).history = "5" Or pupilrecords(pupilindex).history = "4" Or pupilrecords(pupilindex).history = "3" Or pupilrecords(pupilindex).history = "2" Or pupilrecords(pupilindex).history = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select

            Select Case pupilrecords(pupilindex).humanbiolevel

                Case "AH"
                    If pupilrecords(pupilindex).humanbio = "6" Or pupilrecords(pupilindex).humanbio = "5" Or pupilrecords(pupilindex).humanbio = "4" Or pupilrecords(pupilindex).humanbio = "3" Or pupilrecords(pupilindex).humanbio = "2" Or pupilrecords(pupilindex).humanbio = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).humanbio = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).humanbio = "6" Or pupilrecords(pupilindex).humanbio = "5" Or pupilrecords(pupilindex).humanbio = "4" Or pupilrecords(pupilindex).humanbio = "3" Or pupilrecords(pupilindex).humanbio = "2" Or pupilrecords(pupilindex).humanbio = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).humanbio = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).humanbio = "6" Or pupilrecords(pupilindex).humanbio = "5" Or pupilrecords(pupilindex).humanbio = "4" Or pupilrecords(pupilindex).humanbio = "3" Or pupilrecords(pupilindex).humanbio = "2" Or pupilrecords(pupilindex).humanbio = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).humanbio = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).humanbio = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).humanbio = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).humanbio = "6" Or pupilrecords(pupilindex).humanbio = "5" Or pupilrecords(pupilindex).humanbio = "4" Or pupilrecords(pupilindex).humanbio = "3" Or pupilrecords(pupilindex).humanbio = "2" Or pupilrecords(pupilindex).humanbio = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select

            Select Case pupilrecords(pupilindex).italianlevel

                Case "AH"
                    If pupilrecords(pupilindex).italian = "6" Or pupilrecords(pupilindex).italian = "5" Or pupilrecords(pupilindex).italian = "4" Or pupilrecords(pupilindex).italian = "3" Or pupilrecords(pupilindex).italian = "2" Or pupilrecords(pupilindex).italian = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).italian = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).italian = "6" Or pupilrecords(pupilindex).italian = "5" Or pupilrecords(pupilindex).italian = "4" Or pupilrecords(pupilindex).italian = "3" Or pupilrecords(pupilindex).italian = "2" Or pupilrecords(pupilindex).italian = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).italian = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).italian = "6" Or pupilrecords(pupilindex).italian = "5" Or pupilrecords(pupilindex).italian = "4" Or pupilrecords(pupilindex).italian = "3" Or pupilrecords(pupilindex).italian = "2" Or pupilrecords(pupilindex).italian = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).italian = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).italian = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).italian = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).italian = "6" Or pupilrecords(pupilindex).italian = "5" Or pupilrecords(pupilindex).italian = "4" Or pupilrecords(pupilindex).italian = "3" Or pupilrecords(pupilindex).italian = "2" Or pupilrecords(pupilindex).italian = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select


            Select Case pupilrecords(pupilindex).jewellerylevel

                Case "AH"
                    If pupilrecords(pupilindex).jewellery = "6" Or pupilrecords(pupilindex).jewellery = "5" Or pupilrecords(pupilindex).jewellery = "4" Or pupilrecords(pupilindex).jewellery = "3" Or pupilrecords(pupilindex).jewellery = "2" Or pupilrecords(pupilindex).jewellery = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).jewellery = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).jewellery = "6" Or pupilrecords(pupilindex).jewellery = "5" Or pupilrecords(pupilindex).jewellery = "4" Or pupilrecords(pupilindex).jewellery = "3" Or pupilrecords(pupilindex).jewellery = "2" Or pupilrecords(pupilindex).jewellery = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).jewellery = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).jewellery = "6" Or pupilrecords(pupilindex).jewellery = "5" Or pupilrecords(pupilindex).jewellery = "4" Or pupilrecords(pupilindex).jewellery = "3" Or pupilrecords(pupilindex).jewellery = "2" Or pupilrecords(pupilindex).jewellery = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).jewellery = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).jewellery = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).jewellery = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).jewellery = "6" Or pupilrecords(pupilindex).jewellery = "5" Or pupilrecords(pupilindex).jewellery = "4" Or pupilrecords(pupilindex).jewellery = "3" Or pupilrecords(pupilindex).jewellery = "2" Or pupilrecords(pupilindex).jewellery = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select

            Select Case pupilrecords(pupilindex).mathematicslevel

                Case "AH"
                    If pupilrecords(pupilindex).mathematics = "6" Or pupilrecords(pupilindex).mathematics = "5" Or pupilrecords(pupilindex).mathematics = "4" Or pupilrecords(pupilindex).mathematics = "3" Or pupilrecords(pupilindex).mathematics = "2" Or pupilrecords(pupilindex).mathematics = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).mathematics = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).mathematics = "6" Or pupilrecords(pupilindex).mathematics = "5" Or pupilrecords(pupilindex).mathematics = "4" Or pupilrecords(pupilindex).mathematics = "3" Or pupilrecords(pupilindex).mathematics = "2" Or pupilrecords(pupilindex).mathematics = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).mathematics = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).mathematics = "6" Or pupilrecords(pupilindex).mathematics = "5" Or pupilrecords(pupilindex).mathematics = "4" Or pupilrecords(pupilindex).mathematics = "3" Or pupilrecords(pupilindex).mathematics = "2" Or pupilrecords(pupilindex).mathematics = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).mathematics = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).mathematics = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).mathematics = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).mathematics = "6" Or pupilrecords(pupilindex).mathematics = "5" Or pupilrecords(pupilindex).mathematics = "4" Or pupilrecords(pupilindex).mathematics = "3" Or pupilrecords(pupilindex).mathematics = "2" Or pupilrecords(pupilindex).mathematics = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select

            Select Case pupilrecords(pupilindex).medialevel
                Case "AH"
                    If pupilrecords(pupilindex).media = "6" Or pupilrecords(pupilindex).media = "5" Or pupilrecords(pupilindex).media = "4" Or pupilrecords(pupilindex).media = "3" Or pupilrecords(pupilindex).media = "2" Or pupilrecords(pupilindex).media = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).media = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).media = "6" Or pupilrecords(pupilindex).media = "5" Or pupilrecords(pupilindex).media = "4" Or pupilrecords(pupilindex).media = "3" Or pupilrecords(pupilindex).media = "2" Or pupilrecords(pupilindex).media = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).media = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).media = "6" Or pupilrecords(pupilindex).media = "5" Or pupilrecords(pupilindex).media = "4" Or pupilrecords(pupilindex).media = "3" Or pupilrecords(pupilindex).media = "2" Or pupilrecords(pupilindex).media = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).media = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).media = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).media = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).media = "6" Or pupilrecords(pupilindex).media = "5" Or pupilrecords(pupilindex).media = "4" Or pupilrecords(pupilindex).media = "3" Or pupilrecords(pupilindex).media = "2" Or pupilrecords(pupilindex).media = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select

            Select Case pupilrecords(pupilindex).modernstudieslevel
                Case "AH"
                    If pupilrecords(pupilindex).modernstudies = "6" Or pupilrecords(pupilindex).modernstudies = "5" Or pupilrecords(pupilindex).modernstudies = "4" Or pupilrecords(pupilindex).modernstudies = "3" Or pupilrecords(pupilindex).modernstudies = "2" Or pupilrecords(pupilindex).modernstudies = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).modernstudies = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).modernstudies = "6" Or pupilrecords(pupilindex).modernstudies = "5" Or pupilrecords(pupilindex).modernstudies = "4" Or pupilrecords(pupilindex).modernstudies = "3" Or pupilrecords(pupilindex).modernstudies = "2" Or pupilrecords(pupilindex).modernstudies = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).modernstudies = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).modernstudies = "6" Or pupilrecords(pupilindex).modernstudies = "5" Or pupilrecords(pupilindex).modernstudies = "4" Or pupilrecords(pupilindex).modernstudies = "3" Or pupilrecords(pupilindex).modernstudies = "2" Or pupilrecords(pupilindex).modernstudies = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).modernstudies = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).modernstudies = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).modernstudies = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).modernstudies = "6" Or pupilrecords(pupilindex).modernstudies = "5" Or pupilrecords(pupilindex).modernstudies = "4" Or pupilrecords(pupilindex).modernstudies = "3" Or pupilrecords(pupilindex).modernstudies = "2" Or pupilrecords(pupilindex).modernstudies = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select

            Select Case pupilrecords(pupilindex).musiclevel
                Case "AH"
                    If pupilrecords(pupilindex).music = "6" Or pupilrecords(pupilindex).music = "5" Or pupilrecords(pupilindex).music = "4" Or pupilrecords(pupilindex).music = "3" Or pupilrecords(pupilindex).music = "2" Or pupilrecords(pupilindex).music = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).music = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).music = "6" Or pupilrecords(pupilindex).music = "5" Or pupilrecords(pupilindex).music = "4" Or pupilrecords(pupilindex).music = "3" Or pupilrecords(pupilindex).music = "2" Or pupilrecords(pupilindex).music = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).music = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).music = "6" Or pupilrecords(pupilindex).music = "5" Or pupilrecords(pupilindex).music = "4" Or pupilrecords(pupilindex).music = "3" Or pupilrecords(pupilindex).music = "2" Or pupilrecords(pupilindex).music = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).music = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).music = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).music = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).music = "6" Or pupilrecords(pupilindex).music = "5" Or pupilrecords(pupilindex).music = "4" Or pupilrecords(pupilindex).music = "3" Or pupilrecords(pupilindex).music = "2" Or pupilrecords(pupilindex).music = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select


            Select Case pupilrecords(pupilindex).musicleadlevel
                Case "AH"
                    If pupilrecords(pupilindex).musiclead = "6" Or pupilrecords(pupilindex).musiclead = "5" Or pupilrecords(pupilindex).musiclead = "4" Or pupilrecords(pupilindex).musiclead = "3" Or pupilrecords(pupilindex).musiclead = "2" Or pupilrecords(pupilindex).musiclead = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).musiclead = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).musiclead = "6" Or pupilrecords(pupilindex).musiclead = "5" Or pupilrecords(pupilindex).musiclead = "4" Or pupilrecords(pupilindex).musiclead = "3" Or pupilrecords(pupilindex).musiclead = "2" Or pupilrecords(pupilindex).musiclead = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).musiclead = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).musiclead = "6" Or pupilrecords(pupilindex).musiclead = "5" Or pupilrecords(pupilindex).musiclead = "4" Or pupilrecords(pupilindex).musiclead = "3" Or pupilrecords(pupilindex).musiclead = "2" Or pupilrecords(pupilindex).musiclead = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).musiclead = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).musiclead = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).musiclead = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).musiclead = "6" Or pupilrecords(pupilindex).musiclead = "5" Or pupilrecords(pupilindex).musiclead = "4" Or pupilrecords(pupilindex).musiclead = "3" Or pupilrecords(pupilindex).musiclead = "2" Or pupilrecords(pupilindex).musiclead = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select


            Select Case pupilrecords(pupilindex).musictechlevel
                Case "AH"
                    If pupilrecords(pupilindex).musictech = "6" Or pupilrecords(pupilindex).musictech = "5" Or pupilrecords(pupilindex).musictech = "4" Or pupilrecords(pupilindex).musictech = "3" Or pupilrecords(pupilindex).musictech = "2" Or pupilrecords(pupilindex).musictech = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).musictech = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).musictech = "6" Or pupilrecords(pupilindex).musictech = "5" Or pupilrecords(pupilindex).musictech = "4" Or pupilrecords(pupilindex).musictech = "3" Or pupilrecords(pupilindex).musictech = "2" Or pupilrecords(pupilindex).musictech = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).musictech = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).musictech = "6" Or pupilrecords(pupilindex).musictech = "5" Or pupilrecords(pupilindex).musictech = "4" Or pupilrecords(pupilindex).musictech = "3" Or pupilrecords(pupilindex).musictech = "2" Or pupilrecords(pupilindex).musictech = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).musictech = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).musictech = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).musictech = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).musictech = "6" Or pupilrecords(pupilindex).musictech = "5" Or pupilrecords(pupilindex).musictech = "4" Or pupilrecords(pupilindex).musictech = "3" Or pupilrecords(pupilindex).musictech = "2" Or pupilrecords(pupilindex).musictech = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select

            Select Case pupilrecords(pupilindex).fitnesslevel
                Case "AH"
                    If pupilrecords(pupilindex).fitness = "6" Or pupilrecords(pupilindex).fitness = "5" Or pupilrecords(pupilindex).fitness = "4" Or pupilrecords(pupilindex).fitness = "3" Or pupilrecords(pupilindex).fitness = "2" Or pupilrecords(pupilindex).fitness = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).fitness = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).fitness = "6" Or pupilrecords(pupilindex).fitness = "5" Or pupilrecords(pupilindex).fitness = "4" Or pupilrecords(pupilindex).fitness = "3" Or pupilrecords(pupilindex).fitness = "2" Or pupilrecords(pupilindex).fitness = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).fitness = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).fitness = "6" Or pupilrecords(pupilindex).fitness = "5" Or pupilrecords(pupilindex).fitness = "4" Or pupilrecords(pupilindex).fitness = "3" Or pupilrecords(pupilindex).fitness = "2" Or pupilrecords(pupilindex).fitness = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).fitness = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).fitness = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).fitness = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).fitness = "6" Or pupilrecords(pupilindex).fitness = "5" Or pupilrecords(pupilindex).fitness = "4" Or pupilrecords(pupilindex).fitness = "3" Or pupilrecords(pupilindex).fitness = "2" Or pupilrecords(pupilindex).fitness = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select


            Select Case pupilrecords(pupilindex).pelevel
                Case "AH"
                    If pupilrecords(pupilindex).pe = "6" Or pupilrecords(pupilindex).pe = "5" Or pupilrecords(pupilindex).pe = "4" Or pupilrecords(pupilindex).pe = "3" Or pupilrecords(pupilindex).pe = "2" Or pupilrecords(pupilindex).pe = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).pe = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).pe = "6" Or pupilrecords(pupilindex).pe = "5" Or pupilrecords(pupilindex).pe = "4" Or pupilrecords(pupilindex).pe = "3" Or pupilrecords(pupilindex).pe = "2" Or pupilrecords(pupilindex).pe = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).pe = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).pe = "6" Or pupilrecords(pupilindex).pe = "5" Or pupilrecords(pupilindex).pe = "4" Or pupilrecords(pupilindex).pe = "3" Or pupilrecords(pupilindex).pe = "2" Or pupilrecords(pupilindex).pe = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).pe = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).pe = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).pe = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).pe = "6" Or pupilrecords(pupilindex).pe = "5" Or pupilrecords(pupilindex).pe = "4" Or pupilrecords(pupilindex).pe = "3" Or pupilrecords(pupilindex).pe = "2" Or pupilrecords(pupilindex).pe = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select


            Select Case pupilrecords(pupilindex).personalDevlevel
                Case "AH"
                    If pupilrecords(pupilindex).personalDev = "6" Or pupilrecords(pupilindex).personalDev = "5" Or pupilrecords(pupilindex).personalDev = "4" Or pupilrecords(pupilindex).personalDev = "3" Or pupilrecords(pupilindex).personalDev = "2" Or pupilrecords(pupilindex).personalDev = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).personalDev = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).personalDev = "6" Or pupilrecords(pupilindex).personalDev = "5" Or pupilrecords(pupilindex).personalDev = "4" Or pupilrecords(pupilindex).personalDev = "3" Or pupilrecords(pupilindex).personalDev = "2" Or pupilrecords(pupilindex).personalDev = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).personalDev = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).personalDev = "6" Or pupilrecords(pupilindex).personalDev = "5" Or pupilrecords(pupilindex).personalDev = "4" Or pupilrecords(pupilindex).personalDev = "3" Or pupilrecords(pupilindex).personalDev = "2" Or pupilrecords(pupilindex).personalDev = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).personalDev = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).personalDev = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).personalDev = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).personalDev = "6" Or pupilrecords(pupilindex).personalDev = "5" Or pupilrecords(pupilindex).personalDev = "4" Or pupilrecords(pupilindex).personalDev = "3" Or pupilrecords(pupilindex).personalDev = "2" Or pupilrecords(pupilindex).personalDev = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select


            Select Case pupilrecords(pupilindex).photographylevel
                Case "AH"
                    If pupilrecords(pupilindex).photography = "6" Or pupilrecords(pupilindex).photography = "5" Or pupilrecords(pupilindex).photography = "4" Or pupilrecords(pupilindex).photography = "3" Or pupilrecords(pupilindex).photography = "2" Or pupilrecords(pupilindex).photography = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).photography = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).photography = "6" Or pupilrecords(pupilindex).photography = "5" Or pupilrecords(pupilindex).photography = "4" Or pupilrecords(pupilindex).photography = "3" Or pupilrecords(pupilindex).photography = "2" Or pupilrecords(pupilindex).photography = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).photography = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).photography = "6" Or pupilrecords(pupilindex).photography = "5" Or pupilrecords(pupilindex).photography = "4" Or pupilrecords(pupilindex).photography = "3" Or pupilrecords(pupilindex).photography = "2" Or pupilrecords(pupilindex).photography = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).photography = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).photography = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).photography = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).photography = "6" Or pupilrecords(pupilindex).photography = "5" Or pupilrecords(pupilindex).photography = "4" Or pupilrecords(pupilindex).photography = "3" Or pupilrecords(pupilindex).photography = "2" Or pupilrecords(pupilindex).photography = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select



            Select Case pupilrecords(pupilindex).physicslevel
                Case "AH"
                    If pupilrecords(pupilindex).physics = "6" Or pupilrecords(pupilindex).physics = "5" Or pupilrecords(pupilindex).physics = "4" Or pupilrecords(pupilindex).physics = "3" Or pupilrecords(pupilindex).physics = "2" Or pupilrecords(pupilindex).physics = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).physics = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).physics = "6" Or pupilrecords(pupilindex).physics = "5" Or pupilrecords(pupilindex).physics = "4" Or pupilrecords(pupilindex).physics = "3" Or pupilrecords(pupilindex).physics = "2" Or pupilrecords(pupilindex).physics = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).physics = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).physics = "6" Or pupilrecords(pupilindex).physics = "5" Or pupilrecords(pupilindex).physics = "4" Or pupilrecords(pupilindex).physics = "3" Or pupilrecords(pupilindex).physics = "2" Or pupilrecords(pupilindex).physics = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).physics = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).physics = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).physics = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).physics = "6" Or pupilrecords(pupilindex).physics = "5" Or pupilrecords(pupilindex).physics = "4" Or pupilrecords(pupilindex).physics = "3" Or pupilrecords(pupilindex).physics = "2" Or pupilrecords(pupilindex).physics = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select

            Select Case pupilrecords(pupilindex).politicslevel
                Case "AH"
                    If pupilrecords(pupilindex).politics = "6" Or pupilrecords(pupilindex).politics = "5" Or pupilrecords(pupilindex).politics = "4" Or pupilrecords(pupilindex).politics = "3" Or pupilrecords(pupilindex).politics = "2" Or pupilrecords(pupilindex).politics = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).politics = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).politics = "6" Or pupilrecords(pupilindex).politics = "5" Or pupilrecords(pupilindex).politics = "4" Or pupilrecords(pupilindex).politics = "3" Or pupilrecords(pupilindex).politics = "2" Or pupilrecords(pupilindex).politics = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).politics = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).politics = "6" Or pupilrecords(pupilindex).politics = "5" Or pupilrecords(pupilindex).politics = "4" Or pupilrecords(pupilindex).politics = "3" Or pupilrecords(pupilindex).politics = "2" Or pupilrecords(pupilindex).politics = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).politics = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).politics = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).politics = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).politics = "6" Or pupilrecords(pupilindex).politics = "5" Or pupilrecords(pupilindex).politics = "4" Or pupilrecords(pupilindex).politics = "3" Or pupilrecords(pupilindex).politics = "2" Or pupilrecords(pupilindex).politics = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select

            Select Case pupilrecords(pupilindex).pracwoodlevel
                Case "AH"
                    If pupilrecords(pupilindex).pracwood = "6" Or pupilrecords(pupilindex).pracwood = "5" Or pupilrecords(pupilindex).pracwood = "4" Or pupilrecords(pupilindex).pracwood = "3" Or pupilrecords(pupilindex).pracwood = "2" Or pupilrecords(pupilindex).pracwood = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).pracwood = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).pracwood = "6" Or pupilrecords(pupilindex).pracwood = "5" Or pupilrecords(pupilindex).pracwood = "4" Or pupilrecords(pupilindex).pracwood = "3" Or pupilrecords(pupilindex).pracwood = "2" Or pupilrecords(pupilindex).pracwood = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).pracwood = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).pracwood = "6" Or pupilrecords(pupilindex).pracwood = "5" Or pupilrecords(pupilindex).pracwood = "4" Or pupilrecords(pupilindex).pracwood = "3" Or pupilrecords(pupilindex).pracwood = "2" Or pupilrecords(pupilindex).pracwood = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).pracwood = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).pracwood = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).pracwood = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).pracwood = "6" Or pupilrecords(pupilindex).pracwood = "5" Or pupilrecords(pupilindex).pracwood = "4" Or pupilrecords(pupilindex).pracwood = "3" Or pupilrecords(pupilindex).pracwood = "2" Or pupilrecords(pupilindex).pracwood = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select

            Select Case pupilrecords(pupilindex).relevel
                Case "AH"
                    If pupilrecords(pupilindex).re = "6" Or pupilrecords(pupilindex).re = "5" Or pupilrecords(pupilindex).re = "4" Or pupilrecords(pupilindex).re = "3" Or pupilrecords(pupilindex).re = "2" Or pupilrecords(pupilindex).re = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).re = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).re = "6" Or pupilrecords(pupilindex).re = "5" Or pupilrecords(pupilindex).re = "4" Or pupilrecords(pupilindex).re = "3" Or pupilrecords(pupilindex).re = "2" Or pupilrecords(pupilindex).re = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).re = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).re = "6" Or pupilrecords(pupilindex).re = "5" Or pupilrecords(pupilindex).re = "4" Or pupilrecords(pupilindex).re = "3" Or pupilrecords(pupilindex).re = "2" Or pupilrecords(pupilindex).re = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).re = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).re = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).re = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).re = "6" Or pupilrecords(pupilindex).re = "5" Or pupilrecords(pupilindex).re = "4" Or pupilrecords(pupilindex).re = "3" Or pupilrecords(pupilindex).re = "2" Or pupilrecords(pupilindex).re = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select

            Select Case pupilrecords(pupilindex).metalworklevel
                Case "AH"
                    If pupilrecords(pupilindex).metalwork = "6" Or pupilrecords(pupilindex).metalwork = "5" Or pupilrecords(pupilindex).metalwork = "4" Or pupilrecords(pupilindex).metalwork = "3" Or pupilrecords(pupilindex).metalwork = "2" Or pupilrecords(pupilindex).metalwork = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).metalwork = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).metalwork = "6" Or pupilrecords(pupilindex).metalwork = "5" Or pupilrecords(pupilindex).metalwork = "4" Or pupilrecords(pupilindex).metalwork = "3" Or pupilrecords(pupilindex).metalwork = "2" Or pupilrecords(pupilindex).metalwork = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).metalwork = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).metalwork = "6" Or pupilrecords(pupilindex).metalwork = "5" Or pupilrecords(pupilindex).metalwork = "4" Or pupilrecords(pupilindex).metalwork = "3" Or pupilrecords(pupilindex).metalwork = "2" Or pupilrecords(pupilindex).metalwork = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).metalwork = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).metalwork = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).metalwork = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).metalwork = "6" Or pupilrecords(pupilindex).metalwork = "5" Or pupilrecords(pupilindex).metalwork = "4" Or pupilrecords(pupilindex).metalwork = "3" Or pupilrecords(pupilindex).metalwork = "2" Or pupilrecords(pupilindex).metalwork = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select

            Select Case pupilrecords(pupilindex).refereeinglevel
                Case "AH"
                    If pupilrecords(pupilindex).refereeing = "6" Or pupilrecords(pupilindex).refereeing = "5" Or pupilrecords(pupilindex).refereeing = "4" Or pupilrecords(pupilindex).refereeing = "3" Or pupilrecords(pupilindex).refereeing = "2" Or pupilrecords(pupilindex).refereeing = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).refereeing = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).refereeing = "6" Or pupilrecords(pupilindex).refereeing = "5" Or pupilrecords(pupilindex).refereeing = "4" Or pupilrecords(pupilindex).refereeing = "3" Or pupilrecords(pupilindex).refereeing = "2" Or pupilrecords(pupilindex).refereeing = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).refereeing = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).refereeing = "6" Or pupilrecords(pupilindex).refereeing = "5" Or pupilrecords(pupilindex).refereeing = "4" Or pupilrecords(pupilindex).refereeing = "3" Or pupilrecords(pupilindex).refereeing = "2" Or pupilrecords(pupilindex).refereeing = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).refereeing = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).refereeing = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).refereeing = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).refereeing = "6" Or pupilrecords(pupilindex).refereeing = "5" Or pupilrecords(pupilindex).refereeing = "4" Or pupilrecords(pupilindex).refereeing = "3" Or pupilrecords(pupilindex).refereeing = "2" Or pupilrecords(pupilindex).refereeing = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select

            Select Case pupilrecords(pupilindex).skillsforworkFARElevel
                Case "AH"
                    If pupilrecords(pupilindex).skillsforworkFARE = "6" Or pupilrecords(pupilindex).skillsforworkFARE = "5" Or pupilrecords(pupilindex).skillsforworkFARE = "4" Or pupilrecords(pupilindex).skillsforworkFARE = "3" Or pupilrecords(pupilindex).skillsforworkFARE = "2" Or pupilrecords(pupilindex).skillsforworkFARE = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).skillsforworkFARE = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).skillsforworkFARE = "6" Or pupilrecords(pupilindex).skillsforworkFARE = "5" Or pupilrecords(pupilindex).skillsforworkFARE = "4" Or pupilrecords(pupilindex).skillsforworkFARE = "3" Or pupilrecords(pupilindex).skillsforworkFARE = "2" Or pupilrecords(pupilindex).skillsforworkFARE = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).skillsforworkFARE = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).skillsforworkFARE = "6" Or pupilrecords(pupilindex).skillsforworkFARE = "5" Or pupilrecords(pupilindex).skillsforworkFARE = "4" Or pupilrecords(pupilindex).skillsforworkFARE = "3" Or pupilrecords(pupilindex).skillsforworkFARE = "2" Or pupilrecords(pupilindex).skillsforworkFARE = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).skillsforworkFARE = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).skillsforworkFARE = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).skillsforworkFARE = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).skillsforworkFARE = "6" Or pupilrecords(pupilindex).skillsforworkFARE = "5" Or pupilrecords(pupilindex).skillsforworkFARE = "4" Or pupilrecords(pupilindex).skillsforworkFARE = "3" Or pupilrecords(pupilindex).skillsforworkFARE = "2" Or pupilrecords(pupilindex).skillsforworkFARE = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select

            Select Case pupilrecords(pupilindex).sociologylevel
                Case "AH"
                    If pupilrecords(pupilindex).sociology = "6" Or pupilrecords(pupilindex).sociology = "5" Or pupilrecords(pupilindex).sociology = "4" Or pupilrecords(pupilindex).sociology = "3" Or pupilrecords(pupilindex).sociology = "2" Or pupilrecords(pupilindex).sociology = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).sociology = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).sociology = "6" Or pupilrecords(pupilindex).sociology = "5" Or pupilrecords(pupilindex).sociology = "4" Or pupilrecords(pupilindex).sociology = "3" Or pupilrecords(pupilindex).sociology = "2" Or pupilrecords(pupilindex).sociology = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).sociology = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).sociology = "6" Or pupilrecords(pupilindex).sociology = "5" Or pupilrecords(pupilindex).sociology = "4" Or pupilrecords(pupilindex).sociology = "3" Or pupilrecords(pupilindex).sociology = "2" Or pupilrecords(pupilindex).sociology = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).sociology = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).sociology = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).sociology = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).sociology = "6" Or pupilrecords(pupilindex).sociology = "5" Or pupilrecords(pupilindex).sociology = "4" Or pupilrecords(pupilindex).sociology = "3" Or pupilrecords(pupilindex).sociology = "2" Or pupilrecords(pupilindex).sociology = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select

            Select Case pupilrecords(pupilindex).spanishlevel
                Case "AH"
                    If pupilrecords(pupilindex).spanish = "6" Or pupilrecords(pupilindex).spanish = "5" Or pupilrecords(pupilindex).spanish = "4" Or pupilrecords(pupilindex).spanish = "3" Or pupilrecords(pupilindex).spanish = "2" Or pupilrecords(pupilindex).spanish = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).spanish = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).spanish = "6" Or pupilrecords(pupilindex).spanish = "5" Or pupilrecords(pupilindex).spanish = "4" Or pupilrecords(pupilindex).spanish = "3" Or pupilrecords(pupilindex).spanish = "2" Or pupilrecords(pupilindex).spanish = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).spanish = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).spanish = "6" Or pupilrecords(pupilindex).spanish = "5" Or pupilrecords(pupilindex).spanish = "4" Or pupilrecords(pupilindex).spanish = "3" Or pupilrecords(pupilindex).spanish = "2" Or pupilrecords(pupilindex).spanish = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).spanish = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).spanish = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).spanish = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).spanish = "6" Or pupilrecords(pupilindex).spanish = "5" Or pupilrecords(pupilindex).spanish = "4" Or pupilrecords(pupilindex).spanish = "3" Or pupilrecords(pupilindex).spanish = "2" Or pupilrecords(pupilindex).spanish = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select

            Select Case pupilrecords(pupilindex).sportsleadlevel
                Case "AH"
                    If pupilrecords(pupilindex).sportslead = "6" Or pupilrecords(pupilindex).sportslead = "5" Or pupilrecords(pupilindex).sportslead = "4" Or pupilrecords(pupilindex).sportslead = "3" Or pupilrecords(pupilindex).sportslead = "2" Or pupilrecords(pupilindex).sportslead = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).sportslead = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).sportslead = "6" Or pupilrecords(pupilindex).sportslead = "5" Or pupilrecords(pupilindex).sportslead = "4" Or pupilrecords(pupilindex).sportslead = "3" Or pupilrecords(pupilindex).sportslead = "2" Or pupilrecords(pupilindex).sportslead = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).sportslead = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).sportslead = "6" Or pupilrecords(pupilindex).sportslead = "5" Or pupilrecords(pupilindex).sportslead = "4" Or pupilrecords(pupilindex).sportslead = "3" Or pupilrecords(pupilindex).sportslead = "2" Or pupilrecords(pupilindex).sportslead = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).sportslead = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).sportslead = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).sportslead = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).sportslead = "6" Or pupilrecords(pupilindex).sportslead = "5" Or pupilrecords(pupilindex).sportslead = "4" Or pupilrecords(pupilindex).sportslead = "3" Or pupilrecords(pupilindex).sportslead = "2" Or pupilrecords(pupilindex).sportslead = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select

            Select Case pupilrecords(pupilindex).urdulevel
                Case "AH"
                    If pupilrecords(pupilindex).urdu = "6" Or pupilrecords(pupilindex).urdu = "5" Or pupilrecords(pupilindex).urdu = "4" Or pupilrecords(pupilindex).urdu = "3" Or pupilrecords(pupilindex).urdu = "2" Or pupilrecords(pupilindex).urdu = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).urdu = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).urdu = "6" Or pupilrecords(pupilindex).urdu = "5" Or pupilrecords(pupilindex).urdu = "4" Or pupilrecords(pupilindex).urdu = "3" Or pupilrecords(pupilindex).urdu = "2" Or pupilrecords(pupilindex).urdu = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).urdu = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).urdu = "6" Or pupilrecords(pupilindex).urdu = "5" Or pupilrecords(pupilindex).urdu = "4" Or pupilrecords(pupilindex).urdu = "3" Or pupilrecords(pupilindex).urdu = "2" Or pupilrecords(pupilindex).urdu = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).urdu = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).urdu = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).urdu = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).urdu = "6" Or pupilrecords(pupilindex).urdu = "5" Or pupilrecords(pupilindex).urdu = "4" Or pupilrecords(pupilindex).urdu = "3" Or pupilrecords(pupilindex).urdu = "2" Or pupilrecords(pupilindex).urdu = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select

            Select Case pupilrecords(pupilindex).visuallevel
                Case "AH"
                    If pupilrecords(pupilindex).visual = "6" Or pupilrecords(pupilindex).visual = "5" Or pupilrecords(pupilindex).visual = "4" Or pupilrecords(pupilindex).visual = "3" Or pupilrecords(pupilindex).visual = "2" Or pupilrecords(pupilindex).visual = "1" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "47"
                    If pupilrecords(pupilindex).visual = "P" Then
                        pupilrecords(pupilindex).achievinglevel7 += 1
                    End If
                Case "H"
                    If pupilrecords(pupilindex).visual = "6" Or pupilrecords(pupilindex).visual = "5" Or pupilrecords(pupilindex).visual = "4" Or pupilrecords(pupilindex).visual = "3" Or pupilrecords(pupilindex).visual = "2" Or pupilrecords(pupilindex).visual = "1" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "46"
                    If pupilrecords(pupilindex).visual = "P" Then
                        pupilrecords(pupilindex).achievinglevel6 += 1
                    End If
                Case "N5"
                    If pupilrecords(pupilindex).visual = "6" Or pupilrecords(pupilindex).visual = "5" Or pupilrecords(pupilindex).visual = "4" Or pupilrecords(pupilindex).visual = "3" Or pupilrecords(pupilindex).visual = "2" Or pupilrecords(pupilindex).visual = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "45"
                    If pupilrecords(pupilindex).visual = "P" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
                Case "N4", "44"
                    If pupilrecords(pupilindex).visual = "P" Then
                        pupilrecords(pupilindex).achievinglevel4 += 1
                    End If
                Case "N3", "43"
                    If pupilrecords(pupilindex).visual = "P" Then
                        pupilrecords(pupilindex).achievinglevel3 += 1
                    End If
                Case "NC5"
                    If pupilrecords(pupilindex).visual = "6" Or pupilrecords(pupilindex).visual = "5" Or pupilrecords(pupilindex).visual = "4" Or pupilrecords(pupilindex).visual = "3" Or pupilrecords(pupilindex).visual = "2" Or pupilrecords(pupilindex).visual = "1" Then
                        pupilrecords(pupilindex).achievinglevel5 += 1
                    End If
            End Select



            pupilrecords(pupilindex).combinedlevel6 = pupilrecords(pupilindex).achievinglevel7 + pupilrecords(pupilindex).achievinglevel6
            pupilrecords(pupilindex).combinedlevel5 = pupilrecords(pupilindex).achievinglevel7 + pupilrecords(pupilindex).achievinglevel6 + pupilrecords(pupilindex).achievinglevel5
            pupilrecords(pupilindex).combinedlevel4 = pupilrecords(pupilindex).achievinglevel7 + pupilrecords(pupilindex).achievinglevel6 + pupilrecords(pupilindex).achievinglevel5 + pupilrecords(pupilindex).achievinglevel4
            pupilrecords(pupilindex).combinedlevel3 = pupilrecords(pupilindex).achievinglevel7 + pupilrecords(pupilindex).achievinglevel6 + pupilrecords(pupilindex).achievinglevel5 + pupilrecords(pupilindex).achievinglevel4 + pupilrecords(pupilindex).achievinglevel3

        Next


        For counter = 0 To pupilno - 1 'loop for each pupil
            If pupilrecords(counter).combinedlevel6 >= 5 Then
                fivelevel6 += 1
            End If

            If pupilrecords(counter).combinedlevel6 >= 3 Then
                threelevel6 += 1
            End If

            If pupilrecords(counter).combinedlevel6 >= 1 Then
                onelevel6 += 1
            End If

        Next



        'Put average behaviours into pupil records

        For pupilindex = 0 To pupilno - 1
            For behaviourindex = 0 To behavioursno - 1

                If pupilscn(pupilindex) = behaviourscn(behaviourindex) Then
                    pupilrecords(pupilindex).tariffpoints = Math.Round(behaviourtariff(behaviourindex), 2)
                    pupilrecords(pupilindex).avgengagement = behaviourengagement(behaviourindex)
                    pupilrecords(pupilindex).avgclasswork = behaviourcw(behaviourindex)
                    pupilrecords(pupilindex).avghomework = behaviourhw(behaviourindex)
                    pupilrecords(pupilindex).avgoverallprogress = behaviourprogress(behaviourindex)
                End If
            Next
        Next





        FileOpen(5, "C:\Users\mrmar\Documents\Visual Studio 2022\VB Data Files\S56 Tracking Program\S6 Tracking Program\S6PupilTrackingRecords.csv", OpenMode.Output)



        'Write field headings to CSV

        WriteLine(5, "SCN", "Known As", "Surname", "Reg", "Sex", "SIMD", "FME", "LAC", "Language", "ATT.%", "Achieving Level 3", "Achieving Level 4", "Achieving Level 5", "Achieving Level 6", "Achieving Level 7", "Combined Level 3", "Combined Level 4", "Combined Level 5", "Combined Level 6", "Studying Level 3", "Studying Level 4", "Studying Level 5", "Studying Level 6", "Studying Level 7", "Avg Tariff Progress", "Avg Engagement", "Avg Classwork", "Avg Homework", "Avg Overall Progress", "Accounting", "AccLevel", "Administration & IT", "AdminLevel", "Art & Design", "ArtLevel", "Barista NPA", "BaristaLevel", "Biology", "BioLevel", "Business", "BusLevel", "Chemistry", "ChemLevel", "Computing Science", "CompLevel", "Criminology", "CriminologyLevel", "Cyber Security", "CyberLevel", "Design & Manufacture", "D&MLevel", "Drama", "DramaLevel", "Energy", "EnergyLevel", "English", "EngLevel", "EASL", "EASLLevel", "French", "FrenLevel", "Geography", "GeoLevel", "Graphic Comm", "GraphLevel", "H&F Tech", "H&F TechLevel", "History", "HisLevel", "Human Biology", "Human BioLevel", "Italian", "ItaLevel", "Jewellery", "JewelleryLevel", "Mathematics", "MathLevel", "Media Studies", "MediaLevel", "Modern Studies", "ModsLevel", "Music", "MusLevel", "Music Lead", "MusicLeadLevel", "Music Technology", "MusTLevel", "Fitness", "FitLevel", "Physical Education", "PE Level", "Personal Dev", "Personal DevLevel", "Photography", "PhotoLevel", "Physics", "PhysLevel", "Politics", "PoliticsLevel", "Practical Metalwork", "MetalLevel", "Practical Woodwork", "WoodLevel", "RE", "RELevel", "Refereeing", "RefereeLevel", "SFW FARE", "FareLevel", "Sociology", "SocLevel", "Spanish", "SpanLevel", "Sports Leadership", "SLLevel", "Urdu", "UrduLevel", "VisualComm", "VisualCommLevel")


        For pupilindex = 0 To pupilno - 1


            WriteLine(5, pupilrecords(pupilindex).scn,
  pupilrecords(pupilindex).knownas,
  pupilrecords(pupilindex).surname,
  pupilrecords(pupilindex).reg,
  pupilrecords(pupilindex).sex,
  pupilrecords(pupilindex).simd,
  pupilrecords(pupilindex).fme,
  pupilrecords(pupilindex).lac,
  pupilrecords(pupilindex).language,
  pupilrecords(pupilindex).att,
  pupilrecords(pupilindex).achievinglevel3,
  pupilrecords(pupilindex).achievinglevel4,
  pupilrecords(pupilindex).achievinglevel5,
  pupilrecords(pupilindex).achievinglevel6,
  pupilrecords(pupilindex).achievinglevel7,
  pupilrecords(pupilindex).combinedlevel3,
  pupilrecords(pupilindex).combinedlevel4,
  pupilrecords(pupilindex).combinedlevel5,
  pupilrecords(pupilindex).combinedlevel6,
  pupilrecords(pupilindex).studyinglevel3,
  pupilrecords(pupilindex).studyinglevel4,
  pupilrecords(pupilindex).studyinglevel5,
  pupilrecords(pupilindex).studyinglevel6,
  pupilrecords(pupilindex).studyinglevel7,
  pupilrecords(pupilindex).tariffpoints,
  pupilrecords(pupilindex).avgengagement,
  pupilrecords(pupilindex).avgclasswork,
  pupilrecords(pupilindex).avghomework,
  pupilrecords(pupilindex).avgoverallprogress,
  pupilrecords(pupilindex).accounting,
  pupilrecords(pupilindex).accountinglevel,
  pupilrecords(pupilindex).admin,
  pupilrecords(pupilindex).adminlevel,
  pupilrecords(pupilindex).art,
  pupilrecords(pupilindex).artlevel,
  pupilrecords(pupilindex).barista,
  pupilrecords(pupilindex).baristalevel,
  pupilrecords(pupilindex).biology,
  pupilrecords(pupilindex).biologylevel,
  pupilrecords(pupilindex).business,
  pupilrecords(pupilindex).businesslevel,
  pupilrecords(pupilindex).chemistry,
  pupilrecords(pupilindex).chemistrylevel,
  pupilrecords(pupilindex).computing,
  pupilrecords(pupilindex).computinglevel,
  pupilrecords(pupilindex).criminology,
  pupilrecords(pupilindex).criminologylevel,
  pupilrecords(pupilindex).cyber,
  pupilrecords(pupilindex).cyberlevel,
  pupilrecords(pupilindex).designman,
  pupilrecords(pupilindex).designmanlevel,
  pupilrecords(pupilindex).drama,
  pupilrecords(pupilindex).dramalevel,
  pupilrecords(pupilindex).energy,
  pupilrecords(pupilindex).energylevel,
  pupilrecords(pupilindex).english,
  pupilrecords(pupilindex).englishlevel,
  pupilrecords(pupilindex).esl,
  pupilrecords(pupilindex).esllevel,
  pupilrecords(pupilindex).french,
  pupilrecords(pupilindex).frenchlevel,
  pupilrecords(pupilindex).geography,
  pupilrecords(pupilindex).geographylevel,
  pupilrecords(pupilindex).graphics,
  pupilrecords(pupilindex).graphicslevel,
  pupilrecords(pupilindex).healthandfoodtech,
  pupilrecords(pupilindex).healthandfoodtechlevel,
  pupilrecords(pupilindex).history,
  pupilrecords(pupilindex).historylevel,
  pupilrecords(pupilindex).humanbio,
  pupilrecords(pupilindex).humanbiolevel,
  pupilrecords(pupilindex).italian,
  pupilrecords(pupilindex).italianlevel,
  pupilrecords(pupilindex).jewellery,
  pupilrecords(pupilindex).jewellerylevel,
  pupilrecords(pupilindex).mathematics,
  pupilrecords(pupilindex).mathematicslevel,
  pupilrecords(pupilindex).media,
  pupilrecords(pupilindex).medialevel,
  pupilrecords(pupilindex).modernstudies,
  pupilrecords(pupilindex).modernstudieslevel,
  pupilrecords(pupilindex).music,
  pupilrecords(pupilindex).musiclevel,
  pupilrecords(pupilindex).musiclead,
  pupilrecords(pupilindex).musicleadlevel,
  pupilrecords(pupilindex).musictech,
  pupilrecords(pupilindex).musictechlevel,
  pupilrecords(pupilindex).fitness,
  pupilrecords(pupilindex).fitnesslevel,
  pupilrecords(pupilindex).pe,
  pupilrecords(pupilindex).pelevel,
  pupilrecords(pupilindex).personalDev,
  pupilrecords(pupilindex).personalDevlevel,
  pupilrecords(pupilindex).photography,
  pupilrecords(pupilindex).photographylevel,
  pupilrecords(pupilindex).physics,
  pupilrecords(pupilindex).physicslevel,
  pupilrecords(pupilindex).politics,
  pupilrecords(pupilindex).politicslevel,
  pupilrecords(pupilindex).metalwork,
  pupilrecords(pupilindex).metalworklevel,
  pupilrecords(pupilindex).pracwood,
  pupilrecords(pupilindex).pracwoodlevel,
  pupilrecords(pupilindex).re,
  pupilrecords(pupilindex).relevel,
  pupilrecords(pupilindex).refereeing,
  pupilrecords(pupilindex).refereeinglevel,
  pupilrecords(pupilindex).skillsforworkFARE,
  pupilrecords(pupilindex).skillsforworkFARElevel,
  pupilrecords(pupilindex).sociology,
  pupilrecords(pupilindex).sociologylevel,
  pupilrecords(pupilindex).spanish,
  pupilrecords(pupilindex).spanishlevel,
  pupilrecords(pupilindex).sportslead,
  pupilrecords(pupilindex).sportsleadlevel,
  pupilrecords(pupilindex).urdu,
  pupilrecords(pupilindex).urdulevel,
  pupilrecords(pupilindex).visual,
  pupilrecords(pupilindex).visuallevel)

        Next

        FileClose()




        MsgBox("Your files are ready!")


        percent5at6 = (fivelevel6 / pupilno) * 100
        percent3at6 = (threelevel6 / pupilno) * 100
        percent1at6 = (onelevel6 / pupilno) * 100

        ListBox1.Items.Add("5@6 = " & fivelevel6 & " / " & percent5at6 & "%")
        ListBox1.Items.Add("3@6 = " & threelevel6 & " / " & percent3at6 & "%")
        ListBox1.Items.Add("1@6 = " & onelevel6 & " / " & percent1at6 & "%")








    End Sub
End Class