Imports System

Public Module Module1

    Sub Main()      

Console.Writeline("Please enter your name")

    Dim aname As String

    aname = Console.ReadLine

        Console.WriteLine("Hello " & aname)

        Console.WriteLine("How are you.")

        Console.ReadLine() 'pause unitl key pressed

    End Sub

End Module