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