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