Código option button

DIM PUNTOS AS INTEGER 
IF option button3=true then 
    puntos=puntos+40
END IF
IF option button6=true then
    puntos=puntos+60
END IF
MSGBOX"total de puntos"+STR(puntos)