Imports System  

Public Module Module1

    Public Sub Main()

        Dim answer as string

        Console.WriteLine("Hello Everyone - I'm a chatbot")

        Console.WriteLine("My name is Mrs James")

        Console.WriteLine("What is your name?")

        answer = Console.ReadLine()

        console.WriteLine("Nice to meet you " & answer & "!!!" )

        Console.WriteLine("What is your favourite food?")

        answer = Console.ReadLine()

        if answer="spinach" then

            console.writeline("bleeeaarghh!")

        else

            console.WriteLine("I like  " & answer & " too!!!" )

        end if

    End Sub

End Module