Imports System

Public Module Module1

    Public Sub Main()

        Dim Num As Integer

        Dim SquareNum As Integer

        Console.WriteLine(" Enter a Number:")

        Num = Console.Readline

        SquareNum = Num * NUM

        Console.WriteLine(" SquareNum =" & SquareNum)

    End Sub

End Module