Imports System

Module Program
    Sub Main()
        ' Prompt the user to enter their birth date
        Console.WriteLine("Enter your birth date (yyyy-mm-dd):")
        Dim input As String = Console.ReadLine()

        Dim birthDate As DateTime

        ' Validate the input format
        If DateTime.TryParse(input, birthDate) Then
            Dim today As DateTime = DateTime.Now
            Dim ageInDays As Integer = (today - birthDate).Days

            Console.WriteLine($"You are {ageInDays} days old.")
        Else
            Console.WriteLine("Invalid date format. Please use the format yyyy-mm-dd.")
        End If

        ' Wait for user input to close the console
        Console.WriteLine("Press any key to exit.")
        Console.ReadKey()
    End Sub
End Module