Module Mynameis
    Sub main()
        For i = 1 To 10 Step 1

            Dim strName As String

            Console.WriteLine("Hello, what is your name?")

            strName = Console.ReadLine

            Console.WriteLine("Your name is {0}", strName)

        Next


    End Sub

End Module