Imports System

Public Module Module1

    Public Sub Main()

        Dim Length, Width, Area As Integer

        Console.WriteLine("Enter the length of your rectangle.")

        Length = Console.ReadLine

        Console.WriteLine("Enter the width of the rectangle.")

        Width = Console.ReadLine

        Area = Length * Width 

        Console.WriteLine("The area of your rectangle is " & Area.ToString("N1"))

        Console.ReadLine

    End Sub

End Module