Imports System

    Public Module Module1

    Public Sub Main()

        Dim intNumber as Integer 

        Dim x as Integer = 1 

        Console.WriteLine("Enter an integer")

        intNumber = Console.ReadLine() 

        DO WHILE x < 5 

            intNumber = intNumber * 2

            x = x + 1

        LOOP

        COnsole.WriteLine ( intNumber )

    End Sub

End Module