Imports System

Public Module Module1

    Public Sub Main()

        Dim ItemCode(2) As string

        Dim Description(2) As string

        Dim Category(2) As string

        Dim Price(2) As single

        Dim Healthy(2) As Boolean

        Dim HealthInput As char

        Dim answer As char

        Dim PurchaseAgain As Boolean

        Dim Count As integer

        Dim Total As Double = 0.0

        Dim Code As string

        Dim Found As Boolean

        console.WriteLine("Enter Details")

        console.WriteLine()

        For Count = 1 to 2

        console.WriteLine("ItemCode" & Count & ":")

        ItemCode(Count) = console.Readline()

        console.WriteLine("Descrip[tion :" & Count & ":")

        Description(Count) = console.ReadLine()

        console.WriteLine("Category :" & Count & ":")

        Category(Count)=console.ReadLine()

        Console.WriteLine("Price" & Count & ":")

        Price(Count)=console.ReadLine()

        console.WriteLine("Healthy (Y)es OR (N)o" & Count & ":")

        HealthInput=console.ReadLine()

        If HealthInput = "Y" OR HealthInput = "y" Then

            Healthy(Count) = True

        Else

            Healthy(Count) = False

        End If

        Next

    Count=1

    PurchaseAgain = True

    Do while PurchaseAgain = True

        console.WriteLine()

        console.WriteLine("Enter an ItemCode for your purchase:")

        Code = console.ReadLine()

        Found=False

        Do Until Found=True

            If ItemCode(count) = code Then

                Found=True

                console.WriteLine("ItemCode : " & ItemCode(Count))

                Console.WriteLine("Description:"& Description(Count))

                Console.WriteLine("Price :" & Price(Count))

            If Healthy(Count)= True Then

                    Console.WriteLine("Healthy : Yes")

            Else

                    console.WriteLine("Healthy : No")

            End If

                Total = Total + Price (Count)

            Else

                Count = Count+ 1

            End If

        Loop

        If Found = False Then

            console.writeline("Item Not Found")

        End If

        console.WriteLine("Press any key")

        console.Readkey()

        console.WriteLine()

        console.writeline("Do you want to purchase another item (Y)es OR (N)o?")

        answer = console.ReadLine()

        If answer = "Y" OR answer = "y" then

            PurchaseAgain = True

        Else

            PurchaseAgain = False

        End If

    Loop

    console.writeline("Total purchase :" & Total)

    console.ReadKey()

    End Sub

End Module