Ayuda con visual basic 6.0 gracias

Hola,

nesecito ayuda con un programa de visual basic consta de lo siguiente:
hay una pregunta la respuesta de dicha pregunta esta en un combo el cual tiene 3 opciones.

yo lo tengo de la siguiente manetra.

cuando se intente por primera vez debe hacer lo siguiente
Private Sub Combo1_Click()

If Combo1 = "Francisco Tovar" Then

a = MsgBox("10 PUNTOS A TU FAVOR", vbInformation + vbOKOnly, "YES")
p = p + 10

Else
a = MsgBox("tienes otra oportunidad", vbInformation + vbOKOnly, "NO GANAS PUNTOS")
End If

y aca si la respuesta es incorrecta en la primera vez la segunda vez que intente debe hacer lo siguiente
If Combo1 = "Francisco Tovar" Then

b = MsgBox("ganas 5", vbInformation + vbOKOnly, "YES")
p = p + 5

Else
b = MsgBox("pierdes", vbInformation + vbOKOnly, "NO GANAS PUNTOS")
End If

Text1.Text = p
End Sub