Imports System

Public Module Module1

    Public Sub Main()

        Dim width as integer

        Dim length as integer

        Dim area as integer

        Console.WriteLine("Please enter a width of a rectangle:")

        width = Console.ReadLine()

        Console.WriteLine("Please enter a length of a rectangle:")

        length = Console.ReadLine()

        area = width * length

        Console.WriteLine("The area of the rectangle is: " & area)

    End Sub

End Module