Imports System

Public Module Module1

    Public Sub Main()

        Dim number As Integer

        Console.WriteLine("Enter a number and we will help you to find its double.")

        number = Console.ReadLine

        Console.WriteLine(number*2)

    End Sub

End Module