FUNCION SI EN EXCEL!

Private Sub CommandButton1_Click()
Dim puntos As Integer
If ComboBox1 = "Bogota" Then
puntos = puntos + 10
End If
If ComboBox2 = "Hi" Then
puntos = puntos + 10
End If
If ComboBox3 = "Simon Bolívar" Then
puntos = puntos + 10
End If
If ComboBox4 = "Andrea" Then
puntos = puntos + 10
End If
If ComboBox5 = "Zucemberg" Then
puntos = puntos + 10
End If
If ComboBox6 = "Ninguna de las anteriores" Then
puntos = puntos + 10
End If
If ComboBox7 = "N.A" Then
puntos = puntos + 10
End If
If ComboBox8 = "America" Then
puntos = puntos + 10
End If
If ComboBox9 = "America del Norte" Then
puntos = puntos + 10
End If
If ComboBox10 = "Florida" Then
puntos = puntos + 10
End If
MsgBox ("El total de puntos es: " + Str(puntos))
End Sub