Imports System

Public Module Module1

    Public Sub Main()

    Dim age as Integer

    Console.WriteLine("enter age")

    age = Console.ReadLine

    While age <100

        age += 1

        Console.WriteLine(age)

        If age = 5000 Then

            Exit While

        End If

    End While

        Console.ReadLine()

​

    End Sub

End Module