Module Module1

    Sub Main()
        Dim name As String
        Dim n As Integer
        Console.WriteLine("enter the name")
        name = Console.ReadLine
        n = 10
        Do
            Console.WriteLine(name)
            n = n - 1
        Loop

        Console.ReadLine()

    End Sub

End Module
