Imports System
Public Module Module1
Public Sub Main()
dim nu1 as integer
dim i as integer
do
Console.WriteLine("Input a number:")
i = Console.ReadLine()
if i > -1 then
console.writeline(i*2)
end if
loop
End Sub
End Module