Sub AgeCalc()
Dim FullName As String
Dim DateOfBirth As Date
Dim age As Integer
FullName = "John Smith"
DateOfBirth = #1/3/1967#
age = Year(Now()) - Year(DateOfBirth)
Debug.Print FullName & " is " & age & " years old."
End Sub