Console App : Use of Do Until....Loop to Print Numbers

Module Module1

    Sub Main()
        Dim str As String
        Dim i As Integer = 0
        Console.WriteLine("Enter Number :")
        str = Console.ReadLine()
        If IsNumeric(str) Then
            Do Until i > CInt(str)
                Console.WriteLine(i)
                i = i + 1
            Loop
        Else
            Console.WriteLine(str & " is not a Number.")
        End If
        Console.ReadLine()
    End Sub

End Module