macros del coman button

dim  puntos  as integer
if     combox1="juan manuel") then
        puntos=puntos+20
end if
if combox1="pastrana") then
puntos=puntos+20
end if
if combox1="jesus") then
puntos=puntos+20
end if
if combox1="shaquira") then
puntos=puntos+20
end if
if combox1="ver tv") then
puntos=puntos+20
end if
if combox1="arroz") then
puntos=puntos+20
end if
if combox1="10") then
puntos=puntos+20
end if
if combox1="dios") then
puntos=puntos+20
end if
if combox1="rosado") then
puntos=puntos+20
end if
if combox1="7") then
puntos=puntos+20
end if
if combox1="boca") then
puntos=puntos+20
end if
msg box ("el total de puntos es "+str(puntos))