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