Code:
Option Explicit


Sub bDay()
    Dim TheDate As Date
    Dim msg
    TheDate = InputBox("Enter a date")
    msg = "Time from today: " & DateDiff("yyyy", TheDate, Now) / 365
    MsgBox msg
End Sub