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