Imports System

Public Module Module1

    Public Sub Main()

        dim A as string=""

        dim B as string=""

        dim C as string=""

        dim D as string=""

        dim E as string=""

        Console.WriteLine("Enter your five favorite foods")

        Console.WriteLine("Enter food 1")

        A=Console.ReadLine()

        Console.WriteLine("Enter food 2")

        B=Console.ReadLine()

        Console.WriteLine("Enter food 3")

        C=Console.ReadLine()

        Console.WriteLine("Enter food 4")

        D=Console.ReadLine()

        Console.WriteLine("Enter food 5")

        E=Console.ReadLine()

        Console.WriteLine("My favorite foods are:")

        Console.WriteLine(A+","+B+","+C+","+D+","+E)

    End Sub

End Module