Imports System

Public Module Module1

    Public Sub Main()

        dim var as string = 100

        do until var = 0

            Console.WriteLine("<Entry Name=""Percentage_"+var+""">"+var+"%</Entry>")

            var += -1

        Loop

        End Sub

End Module