I am working on an assignment that requires displaying 7 different proverbs to the user and asking the user to provide a true/false answer, then calculating scores and giving a specific response based on their score.

I thought I was off to a good start, but I am stuck.
I cannot figure out how to tally the score. This is what I have been working with: (my score function is WRONG!!)

Dim Resp As String, Pvb1 As String, Pvb2 As String, Pvb3 As String, _
Pvb4 As String, Pvb5 As String, Pvb6 As String, Pvb7 As String

Option Explicit

Private Sub cmdClick_Click()
'to display proverbs and collect score
Call DisplayProverbs
Call Results
End Sub

Private Sub cmdExit_Click()
End
End Sub

Public Function Score() As Integer
'scoring for the given answers

If Pvb1 And UCase(Resp) = "T" Then
Score = Score + 1
ElseIf Pvb2 And UCase(Resp) = "T" Then
Score = Score + 1
ElseIf Pvb3 And UCase(Resp) = "F" Then
Score = Score + 1
ElseIf Pvb4 And UCase(Resp) = "F" Then
Score = Score + 1
ElseIf Pvb5 And UCase(Resp) = "T" Then
Score = Score + 1
ElseIf Pvb6 And UCase(Resp) = "F" Then
Score = Score + 1
ElseIf Pvb7 And UCase(Resp) = "T" Then
Score = Score + 1
Else
End If
End Function

Public Sub DisplayProverbs()
'display proverbs to obtain answers
Pvb1 = "The squeaky wheel gets the grease."
Pvb2 = "Cry and you cry alone."
Pvb3 = "Opposites attract."
Pvb4 = "Spare the rod and spoil the child."
Pvb5 = "Actions speak louder than words."
Pvb6 = "Familiarity breeds contempt."
Pvb7 = "Marry in haste, repent at leisure."
Resp = Val(InputBox(Pvb1 + " (Reply with 'T' for True or 'F' for False.)"))
Resp = Val(InputBox(Pvb2 + " (Reply with 'T' for True or 'F' for False.)"))
Resp = Val(InputBox(Pvb3 + " (Reply with 'T' for True or 'F' for False.)"))
Resp = Val(InputBox(Pvb4 + " (Reply with 'T' for True or 'F' for False.)"))
Resp = Val(InputBox(Pvb5 + " (Reply with 'T' for True or 'F' for False.)"))
Resp = Val(InputBox(Pvb6 + " (Reply with 'T' for True or 'F' for False.)"))
Resp = Val(InputBox(Pvb7 + " (Reply with 'T' for True or 'F' for False.)"))

End Sub


Public Function Response(Score As Integer) As String

Select Case Score
Case Is >= 7
Response = "Perfect"
Case 5 To 6
Response = "Excellent"
Case Is < 5
Response = "You might consider taking Psychology 101. "
End Select
End Function

Public Sub Results()

picProverb.Cls
picProverb.Print Response(Score); " You answered"; Score; " correctly."
End Sub