Imports System

Public Module Module1

    Public Sub Main()

        Dim n as integer

            Do

            console.writeline("Input a number")

            console.ReadLine()

            Loop until n = -1   

    End Sub

End Module