Imports System

Module BirthdayCalculator
    Sub Main()
        Try
            ' Prompt for birthday input
            Console.Write("Enter your birthday (yyyy-mm-dd): ")
            Dim inputBirthday As String = Console.ReadLine()
            Dim birthday As DateTime = DateTime.Parse(inputBirthday)

            ' Prompt for number of days input
            Console.Write("Enter the number of days to add: ")
            Dim inputDays As String = Console.ReadLine()
            Dim daysToAdd As Integer = Integer.Parse(inputDays)

            ' Calculate the new date
            Dim futureDate As DateTime = birthday.AddDays(daysToAdd)

            ' Display the result
            Console.WriteLine("The date after " & daysToAdd & " days from your birthday is: " & futureDate.ToString("yyyy-MM-dd"))

        Catch ex As FormatException
            Console.WriteLine("Invalid date format. Please enter the date in the format yyyy-mm-dd.")
        Catch ex As Exception
            Console.WriteLine("An error occurred: " & ex.Message)
        End Try

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