Repeat until 0 Learn programming Visual Basic (VB.net)

Imports System
Public Class Exercise20
    Public Shared Sub Main()
        Dim number As Integer
        Console.Write("Enter a number: ")
        number = Convert.ToInt32(Console.ReadLine())

        While number <> 0
            Console.WriteLine(number * 10)
            Console.Write("Enter a number: ")
            number = Convert.ToInt32(Console.ReadLine())
        End While
    End Sub
End Class