Imports System

Public Module Module1

    Public Sub Main()

        Dim answer as string

        Console.WriteLine("Hello World")

        Console.WriteLine("My name is Leprecaun 420")

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

        answer=Console.ReadLine()

        Console.WriteLine("I like " & answer & " too" )

        Console.WriteLine("Do u like potatoes")

        answer=console.ReadLine()

        if answer="no" then

            Console.WriteLine("The lepraucauns are coming")

        else

            Console.WriteLine("I like potatoes too")    

        End If

    End Sub

End Module