Private Sub PassOrFail()
        Dim Vcount As Integer
        If S1 < 5 Then
            Vcount = Vcount + 1
        ElseIf S2 < 5 Then
            Vcount = Vcount + 1
        ElseIf S3 < 5 Then
            Vcount = Vcount + 1
        ElseIf S4 < 5 Then
            Vcount = Vcount + 1
        End If
        If Vcount >= 3 Then

            lblStatusDisplay.Text = vbCrLf & "Fail: 3 scores less than 5"


        End If





        If C = "A" And Total < 20 Then                                                           'If category is A and Total is less than 15 provide fail message
            lblStatusDisplay.Text = vbCrLf & "Fail"
        ElseIf C = "A" And Total >= 20 Then                                                          'If category is A and Total is more than 15 provide pass message
            lblStatusDisplay.Text = vbCrLf & "Pass"
        ElseIf C = "B" And Total < 25 Then                                                           'If category is B and Total is equal to or less than 24 provide fail message
            lblStatusDisplay.Text = vbCrLf & "Fail"
        ElseIf C = "B" And Total >= 25 Then                                                          'If category is B and Total is equal to or greater than 25 provide pass message
            lblStatusDisplay.Text = vbCrLf & "Pass"
        ElseIf C = "C" And Total <= 30 Then                                                          'If category is C and Total is less than or equal to 29 provide fail message
            lblStatusDisplay.Text = vbCrLf & "Fail"
        ElseIf C = "C" And Total >= 30 Then                                                          'If category is C and Total is 30 or more provide pass message
            lblStatusDisplay.Text = vbCrLf & "Pass"
        ElseIf C = "a" And Total < 20 Then                                                           'If category is a and Total is less than 15 provide fail message
            lblStatusDisplay.Text = vbCrLf & "Fail"
        ElseIf C = "a" And Total >= 20 Then                                                          'If category is a and Total is more than 15 provide pass message
            lblStatusDisplay.Text = vbCrLf & "Pass"
        ElseIf C = "b" And Total < 25 Then                                                           'If category is b and Total is equal to or less than 24 provide fail message
            lblStatusDisplay.Text = vbCrLf & "Fail"
        ElseIf C = "b" And Total >= 25 Then                                                          'If category is b and Total is equal to or greater than 25 provide pass message
            lblStatusDisplay.Text = vbCrLf & "Pass"
        ElseIf C = "c" And Total <= 30 Then                                                          'If category is c and Total is less than or equal to 29 provide fail message
            lblStatusDisplay.Text = vbCrLf & "Fail"
        ElseIf C = "c" And Total >= 30 Then                                                          'If category is c and Total is 30 or more provide pass message
            lblStatusDisplay.Text = vbCrLf & "Pass"

        End If
    End Sub