preguntas y algoritmo por optionbutton y combo box

1 ¿Cuál es la capital de colombia?

A: bogota

B: boyaca

C: manaure

D: N.A.

2¿Quién es el autor de cien años de soledad?

A: Gabriel garcia marquez

B:juan Rulfo

C: carlos Carpentier

D: N.A.

3¿Cuál es el principal  Dios de los griegos?

A: rul

B: poseidon

C:Zeus

D: N.A.

4¿cuantso huesos tiene el cuerpo humano?

A: 15

B:508

C:206

D: N.A.

5¿ quien es el nobel de lieratura 2010?

A: gabo

B: Vargas llosa

C:lorie

D: N.a.

6 ¿Cuál esel país mas grande del mundo?

A:Venezuela

B: brazil

C: colombia

D:N.a.

7¿Qué toman los mamiferos?

A:leche

B:aceite

C:hielo

D:Na

8 ¿Cuál es elprimer nombre de Washington?

A:thomas

B:George

C:luis

D: na

9 ¿cuantos paises hacen parte del g8?

A:1

B:87

C:8

D: na

10 ¿Qué imvento thomas alba edison?

A:lorito

B:teléfono

C: bombillo

D: na

Dim puntos as integer

If optionbutton1=true  then

Puntos=puntos +20

End if 

If optionbutton5=true  then

Puntos=puntos +20

End if 

If optionbutton11=true  then

Puntos=puntos +20

End if 

If optionbutton15=true  then

Puntos=puntos +20

End if 

If optionbutton18=true  then

Puntos=puntos +20

End if 

If optionbutton22=true  then

Puntos=puntos +20

End if 

If optionbutton25=true  then

Puntos=puntos +20

End if 

If optionbutton30=true  then

Puntos=puntos +20

End if 

If optionbutton33=true  then

Puntos=puntos +20

End if 

If optionbutton36=true  then

Puntos=puntos +20

End if 

If optionbutton38=true  then

Puntos=puntos +20

End if 

msg box ("el total de puntos es "+str(puntos))

Private Sub CommandButton1_Click()
Dim puntos As Integer
If ComboBox1 = "bogota" Then
puntos = puntos + 10
End If
If ComboBox2 = "Gabriel garcia marquez" Then
puntos = puntos + 10
End If
If ComboBox3 = "zeus" Then
puntos = puntos + 10
End If
If ComboBox4 = "206" Then
puntos = puntos + 10
End If
If ComboBox5 = "vargas llosa" Then
puntos = puntos + 10
End If
If ComboBox6 = "n.a" Then
puntos = puntos + 10
End If
If ComboBox7 = "leche" Then
puntos = puntos + 10
End If
If ComboBox8 = "George" Then
puntos = puntos + 10
End If
If ComboBox9 = "8" Then
puntos = puntos + 10
End If
If ComboBox10 = "bombilla" Then
puntos = puntos + 10
End If
MsgBox ("El total de puntos es: " + Str(puntos))
End Sub