Imports System
Public Module Module1
Public Sub Main()
dim nIN as integer
console.WriteLine(“Enter a positive number”)
nIN = console.ReadLine()
While nIN < 0
end while
nIN = nIN * 2
Console.WriteLine(nIN)
End Sub
End Module