Vba DateAdd运行时错误“对象变量或未设置块变量”

Question

我是vba的新手，我正在编写一个简单的程序来计算当前时间之前15分钟的时间，我知道这是一个非常简单的程序，但出现此错误：

  

对象变量或未设置块变量

Dim time1 As Date
time1 = now
Tex1.Text = time1
Text2.Text = DateTime.DateAdd("n",-15,time1)

我在代码的最后一行遇到此错误。