Imports System

Public Module Module1

    Public Sub Main()

        dim total as double

        dim i as integer

        dim name as string

        dim cost as double

        while i < 5

            Console.WriteLine("Enter item name:")

            name = console.ReadLine()

            Console.WriteLine("Enter item price: ")

            cost = double.Parse(console.ReadLine())

            total += cost

            console.WriteLine("the price of " & name & " is " & cost)

            i += 1

        end while

        Console.WriteLine("total cost: " & total)

    End Sub

End Module