Bonjour j'ai fait un petit jeu en vbs sur bloc-notes. Il commence bien mais une fois que l'utilisateur rentre la données numérique le programme saute le select case et va directement a la fin

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim Nom
inthighnumber = 100
intlownumber = 1
randomize
intnumber = int((inthighnumber - intlownumber + 1) * rnd + intlownumber)
msgbox(intnumber & "Ceci est le jeu plus ou moins, vous devez devinez le nombre choisie au hasard entre 1 et 100.Si vous avez donné la bonne réponse vous avez gagné,si vous n'avez pas la bonne réponse, il vous répond si votre réponse est plus grand ou plus petit que son nombre jusqu'à que vous avez trouvé son nombre et vous dit en combien d’essais cela vous à prit pour trouver le nombre.")
Nom=Inputbox("Quelle est votre nom?")
Reponse=inputbox("Entrez un nombre entre 1 et 100")
select case Reponse
case Reponse=111
msgbox("exit")
case Reponse < intnumber
Compteur=compteur+1
msgbox("Votre nombre est plus petit que le mien")
case Reponse > intnumber
Compteur=compteur+1
msgbox("Votre nombre est plus grand que le mien")
case Reponse = intnumber
msgbox("bravo")
End select
msgbox("Bravo, vous avez réussie en " & compteur & " tours")
ceci est ma première discussions si vous avez des commentaires CONSTRUCTIF je serais ravi de les lires