Place this function in a standard module
Public Function NextBirthday(AnyDate As Date) As Date
Dim D As Date
D = Format(Day(AnyDate) & "/" & Month(AnyDate) & "/" & Year(Date), "dd-mmm-yyyy")
If D < Date Then
D = DateAdd("yyyy", 1, D)
End If
NextBirthday = D
End Function
Include this...