Imports System

Public Module Module1

    Public Sub Main()

        dim fd as string

        console.WriteLine("select ONE food from the list:")

        console.WriteLine("synthetic rubber; steel; crude oil; tungsten; chromium; aluminium")

        fd=console.ReadLine()

        select case fd

        case "synthetic rubber"

            console.WriteLine("good choice")

        case "steel"

            console.WriteLine("good for your health")

        case "crude oil"

            console.WriteLine("you are really thirsty")

        case "tungsten"

            console.writeline("nice teeth out there")

        case "chromium"

            console.WriteLine("don't eat too much though")

        case "aluminium"

            console.WriteLine("light and healthy")

        case else 

            console.writeline("invalid response, that's not a choice. rerun the program")

        end select

    End Sub

End Module