Revise paste 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 = "-"

'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))

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

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

'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(