Dim dt1 As Date Dim dt2 As Date dt1 = "01/01/2006" dt2 = "01/01/2007" MsgBox(DateDiff(DateInterval.Month, dt1, dt2))