[VBA] code om iemands leeftijd te weten

[Droyd]

Sub Leeftijd()
Dim dteStart As Date, intLeeftijd As Integer
dteStart = InputBox("Geboortedatum:")
intLeeftijd = Year(Date) - Year(dteStart)
If Month(dteStart) > Month(Date) Then
intLeeftijd = intLeeftijd - 1
Else
If Day(dteStart) > Day(Date) Then
intLeeftijd = intLeeftijd - 1
End If
End If
MsgBox intLong
End Sub

Dit is wat ik heb, tot op de dag nauwkeurig
Heb ik iets over het hoofd gezien, of is hier een kortere, betere manier voor?

[Droyd]

Ik merk er niet echt een fout in, maar het lijkt me een omslachtige manier...Kan het niet via datediff ofzo?