Well, we aren't going to do your homework.
Here's a skeleton of how it should look:
Private Sub btnPassFail_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnPassFail.Click
If (AnyTextBoxContainsInvalidData())
Else If (TwoOrMoreScoresHaveValueLessThanFive())
Else
EndIf
End Sub
Private Function AnyTextBoxContainsInvalidData() As Boolean
End Function
Private Function TwoOrMoreScoresHaveValueLessThanFive() As Boolean
End Function
Happy coding.