Dim dblTestGrade1 As Double
        Dim dblTestGrade2 As Double
        Dim dblTestGrade3 As Double
        Dim dblAverage As Double


        dblTestGrade1 = Val(txtTest1.Text)
        dblTestGrade2 = Val(txtTest2.Text)
        dblTestGrade3 = Val(txtTest3.Text)


        dblAverage = (dblTestGrade1 + dblTestGrade2 + dblTestGrade3) / 3

        lblAvg.Text = dblAverage

        If rdoaf.Checked Then

            If dblAverage >= 90 Then
                lblAvg.Text = "A"
            ElseIf dblAverage >= 80 Then
                lblAvg.Text = "B"
            ElseIf dblAverage >= 70 Then
                lblAvg.Text = "C"
            ElseIf dblAverage >= 60 Then
                lblAvg.Text = "D"
            Else
                lblAvg.Text = "F"


            End If
        End If
        If rdopf.Checked Then
            If dblAverage >= 60 Then
                lblAvg.Text = "Pass"
            Else
                lblAvg.Text = "Fail"
            End If
        End If

        If chkbox1.Checked Then
            Dim message As String
            If dblAverage >= 90 Then
                message = "A " & lblAvg.Text & ""
            ElseIf dblAverage >= 80 Then
                message = "B " & lblAvg.Text & ""
            ElseIf dblAverage >= 70 Then
                message = "C " & lblAvg.Text & ""
            ElseIf dblAverage >= 60 Then
                message = "D " & lblAvg.Text & ""
            Else
                message = "F " & lblAvg.Text & ""



            End If