Imports System

Public Module Module1

    Public Sub Main()

        Dim num as integer

        do

        loop until num=-1

        Console.WriteLine("Enter a number")

        num=Console.ReadLine()

        Console.WriteLine(num*2)

    End Sub

End Module