Imports System

Public Module Module1

    Public Sub Main()

        Dim Number as integer=0

        Console.WriteLine("Enter Number")

        number = Console.ReadLine()

        Do

        Console.Writeline("Enter Number")

        Number = Console.ReadLine()

        loop Until (number) = 0

    End Sub

    End Module