'Skyler Rhodes

'Date 12/19/20

Imports System

Public Module Module1

    Public Sub Main()

        'Initalize Variables

        Dim strLength As String = ""

        Dim strWidth As String = ""

        Dim dblArea As Double = 0

        Dim dblYards As Double = 0

        Console.WriteLine("Enter Length of rectangle")

        strLength = Console.ReadLine()

        Console.WriteLine("Enter Width of rectangle")

        strWidth = Console.ReadLine()

        Convert.ToDouble(strLength)

        Convert.ToDouble(strWidth)

        dblArea = strLength * strWidth

        Console.WriteLine("Area in feet is " & dblArea)

        dblYards = dblArea / 9

        Console.WriteLine("Yards is " & dblYards)

    End Sub

End Module