Sub dateDiffFunction() Dim strDateString As String strDateString = "The days between 3/15/2000 and today is: " & _ DateDiff("d", "3/15/2000", Now) & vbCrLf & _ "The months between 3/15/2000 and today is: " & _ DateDiff("m", "3/15/2000", Now) MsgBox strDateString End Sub