Dim Resultat
Resultat=InputBox ("Entrez un nombre compris entre 0 et 10", "0")
Valeur = int (Resultat)
If Valeur >= 0 And Valeur <= 10 Then 
   If Valeur < 5 Then
      MsgBox "Le nombre que vous avez saisi est inférieur à 5."
   Else 
      MsgBox "Le nombre que vous avez saisi est supérieur à 5."
   End If
Else
   if Valeur < 0  then MsgBox "Le nombre que vous avez saisi doit être positif" else MsgBox "Le nombre que vous avez saisi n'est pas compris entre 0 et 10 !!!."
End If