TRABAJO!

Private Sub ComboBox1_Change()
Dim PUNTOS As Integer
If ComboBox1 = "DAVID GETTA" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "total de puntos" + Str(PUNTOS)
End Sub

Private Sub ComboBox2_Change()
Dim PUNTOS As Integer
If ComboBox2 = "MEDELLIN" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub

Private Sub ComboBox3_Change()
Dim PUNTOS As Integer
If ComboBox3 = "JUAN MANUEL SANTOS" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub

Private Sub ComboBox4_Change()
Dim PUNTOS As Integer
If ComboBox4 = "HUGO CHAVEZ" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub

Private Sub ComboBox5_Change()
Dim PUNTOS As Integer
If ComboBox5 = "NEILA PRIETO" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub

Private Sub ComboBox6_Change()
Dim PUNTOS As Integer
If ComboBox6 = "DAMERIS" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub

Private Sub ComboBox7_Change()
Dim PUNTOS As Integer
If ComboBox7 = "DIANA" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub

Private Sub ComboBox8_Change()
Dim PUNTOS As Integer
If ComboBox8 = "SHOES" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub

Private Sub ComboBox9_Change()
Dim PUNTOS As Integer
If ComboBox9 = "STUDIO F" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub

Private Sub ComboBox10_Change()
Dim PUNTOS As Integer
If ComboBox10 = "BOGOTA" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub

Private Sub ComboBox11_Change()
Dim PUNTOS As Integer
If ComboBox11 = "CHEPE FORTUNA" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub

Private Sub ComboBox12_Change()
Dim PUNTOS As Integer
If ComboBox12 = "35" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub

Private Sub ComboBox13_Change()
Dim PUNTOS As Integer
If ComboBox13 = "DRAGON Y CABALLERO" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub

Private Sub ComboBox14_Change()
Dim PUNTOS As Integer
If ComboBox14 = "SILVESTRE DANGOD" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub

Private Sub ComboBox15_Change()
Dim PUNTOS As Integer
If ComboBox15 = "TOLA" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub

Private Sub ComboBox16_Change()
Dim PUNTOS As Integer
If ComboBox16 = "BARRANQUILLA" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub

Private Sub ComboBox17_Change()
Dim PUNTOS As Integer
If ComboBox17 = "JOSE LUIS TRESPALACIO" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub

Private Sub ComboBox18_Change()
Dim PUNTOS As Integer
If ComboBox18 = "EL PERRO" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub

Private Sub ComboBox19_Change()
Dim PUNTOS As Integer
If ComboBox19 = "JUSTIN BIEBER" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub

Private Sub ComboBox20_Change()
Dim PUNTOS As Integer
If ComboBox20 = "DISNEY CHANNEL" Then
PUNTOS = PUNTOS + 20
End If
MsgBox "TOTAL DE PUNTOS" + Str(PUNTOS)
End Sub