Imports System

Public Module Module1

    Public Sub Main()

        'ask the user for their age

        Dim name As String

        Console.WriteLine("Hello World! What is your name?")

        name = Console.ReadLine()

        'ask the user if they are at least 18 years or older

        Dim minimum_age As Integer = 18

        Console.WriteLine("Are you at least {0} years old?", minimum_age)

        'Set the value of meets_requirement equal to if the user's input equals Yes 

        Dim meets_requirement As Boolean = Console.ReadLine() = "Yes"

        'Let the user know if they can proceed

        Console.WriteLine("{0}, the statement that you are at least {1} years old is {2}", name, minimum_age, meets_requirement)

        'Let the user read the output

        COnsole.ReadLine()

    End Sub

End Module