Module Module1



    Sub Main()

        'local variables

        Const fiberCost As Double = 0.87

        Dim companyName As String

        Dim numFeet As Double = 0

        Dim totalCost As Double = 0

        Console.Write("Enter company name: ")

        companyName = Console.ReadLine()

        Console.Write("Enter number of Fiber: ")

        numFeet = Console.ReadLine()

        totalCost = numFeet * fiberCost

        Console.WriteLine("Your company " + companyName + "had a total cost of $ " + totalCost +)

        'this causes apause so you can see your program

        Console.Write("Press enter to continue...")

        Console.ReadLine()

    End Sub