If strCourseName = "SUBSIDIARY DIPLOMA" Then
            If totalpoints >= 420 And totalpoints <= 459 Then
                totalgrade = "P"
            ElseIf totalpoints >= 460 And totalpoints <= 499 Then
                totalgrade = "M"
            ElseIf totalpoints >= 500 And totalpoints <= 519 Then
                totalgrade = "D"
            ElseIf totalpoints >= 520 Then
                totalgrade = "D*"
            End If
        ElseIf strCourseName = "90 CREDIT DIPLOMA" Then

            If totalpoints >= 630 And totalpoints <= 659 Then
                totalgrade = "P P"
            ElseIf totalpoints >= 660 And totalpoints <= 689 Then
                totalgrade = "M P"
            ElseIf totalpoints >= 690 And totalpoints <= 719 Then
                totalgrade = "M M"
            ElseIf totalpoints >= 720 And totalpoints <= 749 Then
                totalgrade = "D M"
            ElseIf totalpoints >= 750 And totalpoints <= 769 Then
                totalgrade = "D D"
            ElseIf totalpoints >= 770 And totalpoints <= 789 Then
                totalgrade = "D* D"
            ElseIf totalpoints >= 790 Then
                totalgrade = "D* D*"
            End If

        ElseIf strCourseName = "DIPLOMA" Then

            If totalpoints >= 840 And totalpoints <= 879 Then
                totalgrade = "P P"
            ElseIf totalpoints >= 880 And totalpoints <= 919 Then
                totalgrade = "M P"
            ElseIf totalpoints >= 920 And totalpoints <= 959 Then
                totalgrade = "M M"
            ElseIf totalpoints >= 960 And totalpoints <= 999 Then
                totalgrade = "D M"
            ElseIf totalpoints >= 1000 And totalpoints <= 1029 Then
                totalgrade = "D D"
            ElseIf totalpoints >= 1030 And totalpoints <= 1059 Then
                totalgrade = "D* D"
            ElseIf totalpoints >= 1060 Then
                totalgrade = "D* D*"
            End If
        ElseIf strCourseName = "EXTENDED DIPLOMA" Then

            If totalpoints >= 1260 And totalpoints <= 1299 Then
                totalgrade = "P P P"
            ElseIf totalpoints >= 1300 And totalpoints <= 1339 Then
                totalgrade = "M P P"
            ElseIf totalpoints >= 1340 And totalpoints <= 1379 Then
                totalgrade = "M M P"
            ElseIf totalpoints >= 1380 And totalpoints <= 1419 Then
                totalgrade = "M M M"
            ElseIf totalpoints >= 1420 And totalpoints <= 1459 Then
                totalgrade = "D M M"
            ElseIf totalpoints >= 1460 And totalpoints <= 1499 Then
                totalgrade = "D D M"
            ElseIf totalpoints >= 1500 And totalpoints <= 1529 Then
                totalgrade = "D D D"
            ElseIf totalpoints >= 1530 And totalpoints <= 1559 Then
                totalgrade = "D* D D"
            ElseIf totalpoints >= 1560 And totalpoints <= 1589 Then
                totalgrade = "D* D* D"
            ElseIf totalpoints >= 1590 Then
                totalgrade = "D* D* D*"
            End If

        End If

        lblTotalGrade.Text = totalgrade