Problèmes en vbs

Bonjour

je suis débutant en vbs et j'ai concocté un petit programme. Voici le code :

randomize
dim num1
dim num2
dim resultat
dim reponse
num1=int((10-1+1)*rnd+1)
num2=int((10-1+1)*rnd+1)
resultat=num1+num2
reponse=inputbox (num1&" + "&num2& "=")
if resultat = reponse then
msgbox "Bonne réponse !",vbexclamation,"Bonne réponse !"
else
msgbox "Mauvaise réponse. La bonne réponse était : "&resultat&" et non : "&reponse,vbexclamation,"Mauvaise réponse"
end if
dim choix
choix=msgbox ("Voulez-vous faire un autre calcul ?",vbquestion+vbyesno," Un autre calcul ?")
if choix=6 then
set WshShell = createObject("WScript.shell")
Wshshell.run "test.vbs"
end if

Le problème, c'est que quand je met la bonne réponse, par exemple 2+2=4, il m'indique : Mauvaise réponse ! La bonne réponse était : 4 et non : 4
Est-ce que quelqu'un pourrait m'aider ?