Imports System

Public Module Module1

    Public Sub Main()

        'declare variable'

        Dim Length, Width, Area as decimal

        'input length & width'

        Console.writeline("Enter length in cm")

        Length = console.ReadLine()

        Console.WriteLine("Enter width in cm")

        Width = console.ReadLine()

        'calculate area'

        Area = Length * Width 

        'output area'

        Console.writeline("The area of your rectangle is " & Area & " cm squared")

    End Sub

End Module