Dim Length, Width, Area As Decimal
Console.WriteLine("Enter Length of Rectangle (cm)")
Length = Console.ReadLine()
Console.WriteLine("Enter width of rectangle (cm)")
Width = Console.ReadLine()
Console.WriteLine("The area of the rectangle is " & Area & " sq cm")