Imports System

Public Module Module1

    Public Sub Main()

        Dim intage As Integer

        Try

            intage = Convert.ToInt32(Console.ReadLine)

            Console.WriteLine("  Your age is " & intage)

        Catch ex As Exception

            Console.WriteLine(" Please enter numeric values")

                End Try

    End Sub

End Module