Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim nIN as integer

        console.WriteLine(“Enter a positive number”)

        nIN = console.ReadLine()

        While nIN < 0

            console.WriteLine(“Enter a positive number”)

            nIN = console.ReadLine()

        end while

​

        nIN = nIN * 2

        Console.WriteLine(nIN)

    End Sub

End Module

​