Devoir en vb

SLT miso je ne c pas si tu a trouver déjà la réponse si c non la voila :

Sub Main()
Dim nbr As Integer
Do
Console.WriteLine("entrer le nombre entre 1 et 10")
nbr = Console.ReadLine

Loop Until nbr >= 1 And nbr <= 10
Console.WriteLine("bonne reponse")
Console.Read()
End Sub

@+ et bonne continuation ^_^

Bonjour, merci.