Pass Fail Course Problem Code

Private Sub cmdCheckCourse_Click()

    Dim intGradeAverage As Integer

    intGradeAverage = Val( InputBox("Enter Grade Average", _

       "Final Average this Semester"))

    If intGradeAverage >= 65 Then

       MsgBox "Passed Course", vbOKOnly, "Course Passed"

    Else

        MsgBox "Failed Course", vbOKOnly, "Course Failed“

    End If