Algo que ocupas saber esque por codigo podemos obtener la fecha actual por lo que seria mejor solo los campos del dia, mes y año de nacimiento y con eso podriamos jeje

Aqui te lo dejo como quedaria mas o menos

Public Class Form1
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim a1, m1, d1, a2, m2, d2 As Integer
        Dim fecha As DateTime = DateTime.Today
        a1 = año1.Text
        m1 = mes1.Text
        d1 = dia1.Text
        a2 = fecha.Year
        m2 = fecha.Month
        d2 = fecha.Day
 
        If (m2 > m1) Then
            Label1.Text = "Cumpliste "
        ElseIf (m2 < m1) Then
            Label1.Text = "Cumpliras "
        ElseIf (m2 = m1) Then
            If (d2 > d1) Then
                Label1.Text = "Cumpliste "
            ElseIf (d2 < d1) Then
                Label1.Text = "Cumpliras "
            Else
                Label1.Text = "Cumples "
            End If
        End If
 
        Label1.Text = Label1.Text + (a2 - a1).ToString + " años"
 
    End Sub
End Class