Sub AgeCalc2()
' variable declaration
Dim FullName$
Dim DateOfBirth As Date
Dim age%
' assign values to variables
FullName$ = "John Smith"
DateOfBirth = #1/3/1967#
' calculate age
age% = Year(Now()) - Year(DateOfBirth)
' print results to the Immediate window
MsgBox FullName$ & "is" & age% & " years old."
End Sub