Programme vba

Bonjour,

je dois créer un programme ou un nombre choisi par l'ordinateur de 1 a 100 est affiché quand on l'a saisi.
je saisi plusieurs nombres et a un moment il m'affiche une solution alors que je ne 'lai pas saisie!
merci d'avance

Sub nbremystere()
Dim nbre As Integer
Dim mys As Integer
nbre = 0
myst = 0

mys = Int(100 * Rnd) + 1

nbre = InputBox("quel est le nombre choisi par l'ordinateur?")

For nbre = nbre > mys To nbre = nbre > mys

nbre = InputBox("votre nombre est trop grand saisissez en un autre!")
Next

For nbre = nbre < mys To nbre = nbre < mys

nbre = InputBox("votre nombre est trop petit saisissez en un autre!")

Next

For nbre = mys To nbre = mys

MsgBox ("le nombre est de" & nbre)

Next

Do
For nbre = nbre > mys To nbre = nbre > mys

nbre = InputBox("votre nombre est trop grand saisissez en un autre!")
Next

For nbre = nbre < mys To nbre = nbre < mys

nbre = InputBox("votre nombre est trop petit saisissez en un autre!")

Next

For nbre = mys To nbre = mys

MsgBox ("le nombre est de" & nbre)

Next

Loop Until nbre = mys

MsgBox ("le nombre est de" & nbre)

End Sub