Programação em Visual Basic - "Aniversário"

Olá outra vez!

Desta vez temos um programa que nos diz quanto tempo falta para fazermos anos e que idade fazemos. Para isso temos que introduzir a nossa data de nascimento (dia, mês e ano) e ao clicarmos num botão ele dá-nos uma mensagem com o tempo em falta.

Aqui está a programação:

 Public Class Form1

    Dim ano As Integer
    Dim mes As Integer
    Dim dia As Integer
    Dim idade As Integer
    Dim meses As Integer
    Dim dias As Integer
    Dim anoa As Integer
    Dim mesa As Integer
    Dim diaa As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dia = InputBox("Em que dia fazes anos?", "")
        mes = InputBox("Em que mês fazes anos? (escreve o número)", "")
        ano = InputBox("Em que ano nascestes?", "")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        anoa = Date.Today.Year
        mesa = Date.Today.Month
        diaa = Date.Today.Day
        If mesa = mes And diaa = dia Then
            idade = anoa - ano
            MessageBox.Show("Parabéns, fazes " & idade & " anos hoje!")
        Else
            If mesa = mes And diaa < dia Then
                idade = anoa - ano
                dias = dia - diaa
                If dias = 1 Then
                    MessageBox.Show("Fazes " & idade & " anos amanhã.")
                Else
                    MessageBox.Show("Fazes " & idade & " anos daqui a " & dias & " dias.")
                End If
            Else
                If mesa = mes And diaa > dia Then
                    idade = anoa - ano + 1
                    MessageBox.Show("Fazes " & idade & " anos daqui a 1 ano.")
                Else
                    If mesa > mes Then
                        meses = mes + (12 - mesa)
                        idade = anoa - ano + 1
                        MessageBox.Show("Fazes " & idade & " anos daqui a " & meses & " meses.")
                    Else
                        If mesa < mes Then
                            meses = mes - mesa
                            idade = anoa - ano
                            If meses = 1 Then
                                MessageBox.Show("Fazes " & idade & " anos no próximo mês.")
                            Else
                                MessageBox.Show("Fazes " & idade & " anos daqui a " & meses & " meses.")
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        dia = InputBox("Em que dia fazes anos?")
        mes = InputBox("Em que mês fazes anos? (escreve o número)")
        ano = InputBox("Em que ano nascestes?")
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        End
    End Sub

End Class