'calcula a idade em dias, mes e ano
Public Function CalcularIdade(DTNasc As Date) As String
   Dim Anos As Single, Meses As String, dias As Single
   Dim UTDTNasc As Date
   If Month(DTNasc) <= Month(Date) Then
      If Month(DTNasc) <> Month(Date) Then
         UTDTNasc = Day(DTNasc) & "/" & Month(DTNasc) & "/" & Year(Format(Date, "dd/mm/yyyy"))
      Else
         If Day(DTNasc) <= Day(Date) Then
            UTDTNasc = Day(DTNasc) & "/" & Month(DTNasc) & "/" & Year(Format(Date, "dd/mm/yyyy"))
         Else
            GoTo NPassou
         End If
      End If
   Else
NPassou:
      UTDTNasc = Day(DTNasc) & "/" & Month(DTNasc) & "/" & Year(Format(Date, "dd/mm/yyyy")) - 1
   End If
   Anos = DateDiff("yyyy", DTNasc, UTDTNasc)
   Meses = DateDiff("m", UTDTNasc, Date)
   If Day(Date) < Day(UTDTNasc) Then
      Meses = Meses - 1
      dias = DateDiff("d", DateAdd("m", -1, Day(DTNasc) & "/" & Month(Date) & "/" & Year(Format(Date, "dd/mm/yyyy"))), Date)
   ElseIf Day(Date) = Day(UTDTNasc) Then
      dias = 0
   ElseIf Day(Date) > Day(UTDTNasc) Then
      dias = DateDiff("d", Day(DTNasc) & "/" & Month(Date) & "/" & Year(Format(Date, "dd/mm/yyyy")), Date)
   End If
   CalcularIdade = Anos

End Function

velhao tenho uma forma que tvs seja mais facil pra vc resolver sua trata

 

If IsDate(Text1) = False Then
    MsgBox "data invalida", vbCritical, "Atenção"
    Text1 = Empty: Text1.SetFocus
    Exit Sub
End If

Dim Ano As Integer, mes As Integer, dia As Integer, idade As Integer

Ano = Year(Text1)
mes = Month(Text1)
dia = Day(Text1)

idade = (Year(Date) - Ano) - 1

If Month(Date) >= mes Then
   
    If Day(Date) >= dia Then idade = idade + 1
   
End If

 

Label1 = idade

 

tenta ai