Imports System

Public Module Module1

    Public Sub Main()

        Dim name as string

        Console.WriteLine("Please input your name. ")

        name = Console.ReadLine

        For counter = 1 to 6 step 1

        Console.WriteLine(name)

    next counter

    End Sub

End Module