VB label控件返回一个今天日期和原来输入日期的间隔天数

Private Sub Command1_Click()
Dim D1 As Date, D2 As Date
D1 = CDate(Text1.Text) '请在Text1文本框中输入原来的日期
D2 = Date
Label1.Caption = "相差：" & D2 - D1 & "天"
End Sub