Ten problém je, že žádná z uvedených možností nemusí platit.
Protože když odpovíš jen špatně, hodnota celkem může být i záporná.
Zkus si tam doplnit:

Sub výsledek()
MsgBox "Počet bodů:" & celkem

...
...

end sub


(Případně tam dej to, co měli v zadání...)

PS: takhle pracně bych teda testy dělat nechtěl...