Imports System

    Public Module Module1

    Public Sub Main()

        dim name as string

        dim favoritefood as string 

        Console.WriteLine("Hello i am Archie")

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

        name = Console.ReadLine()

        console.WriteLine("Hello " & name )

        console.WriteLine("what is your favorite food? ")

        favoritefood = console.ReadLine()

        console.WriteLine("I also like eating " & favoritefood)

        console.WriteLine()

    End Sub

End Module

​