●詳細●

　DateDiff関数を使って、今日から指定の日までの日付の間隔を、
　メッセージボックスに表示します。
　DateDiff関数は、２つの日付または時刻を比較して、その差を
　返します。

Sub Sample() 

    Dim myToday As String   '今日の日付 
    Dim myDate As String    '指定日付 
    Dim Days As String      '間隔（日） 

    myToday = Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日"←(1)
    myDate = "1999年6月1日"←(2)
    Days = DateDiff("d",myDate, Date) & "日"←(3) 

    MsgBox myDate & "から" & myToday & "までの日数：" & Days

End Sub 

(1)メッセージボックスに表示するための今日の年・月・日を取得しています。
(2)比較する日付をセットします。 
(3)日付の間隔を取得します。 

＊”ｄ”（日付間隔）の他に下記の値も取得できます。

    "q" ＝四半期
    "m" ＝月
    "y" ＝年間通算日
    "d" ＝日
    "w" ＝週日
    "ww"＝週

    "h" ＝時
    "n" ＝分
    "s" ＝秒