Imports System

Public Module Module1

    Public Sub Main()

        Dim age As Integer 

        Console.WriteLine("enter age")

        age = Console.ReadLine() 

        While age > 10 

            age += 1 

            Console.WriteLine(age)

            If age = 5000 Then

                Exit While

                End If

            End While

            Console.ReadLine() 

​

​

    End Sub

End Module