Imports System

Public Module Module1

    Public Sub Main()

        dim i as integer

        console.writeline("enter a number")

        i=console.readline()

        do while i <> -1

        console.writeline("enter a number")

        i=console.readline()

        loop

    End Sub

End Module