Boucle Loop While qui ne s'arrête pas avec mes conditions

Bonsoir tout le monde !

Pour vous expliquer rapidos le contexte : j'ai créée un mini quizz pour mon stage ou les utilisateurs doivent répondre à 7 questions à la suite qui s'affichent sous forme d'InputBox (fichier joint pour mieux comprendre).
Je suis NOVICE en VBA et mon problème est que j'aimerai que ma boucle s'arrête si la réponse à la question est fausse ou si le score maximal est atteint (c'est sur 10 points).
La boucle continue même si c'est faux mais s'arrête au bout des 7 questions

Je sais que mon code est faux (bon évidemment mais au delà de l'erreur je pense qu'il est pas bien "codé"), si quelqu'un peut m'aider ou m'indiquer comment faire pour que la boucle respectent les conditions, je vous dit merci d'avance !
Jspr que mon post est compréhensible (dsl c'est un peu long)

Bonne soirée !

Ps : les questions ne veulent pour la plupart rien dire parce que j'ai retirée les données confidentielles (il est aussi censé m'inscrire le score obtenu mais je peux corriger ça)