Vb6 过期日期时间戳作为字符串

Im使用visual basic 6.0 我正在尝试自动填写我的表格。text9.text作为注册日期，text10.text和到期日期。 我想在text3中添加1年。text: 格式$（现在是，“，mmmm dd，yyyy”）输出如下，例如：text2.text上的2013年12月15日（今天是日期） 有没有办法将2014年12月15日的uotput生成一个与text9.text格式相同的textbox10.text？ 这是我使用的代码：

Private Sub Form_Load()

    Call connect
    query = "Select * from Taxi"
    rsglob.Open query, connglob

    If rsglob.BOF = True Then
        Exit Sub
    Else
        Text1.Text = ""
        Text2.Text = ""
        Text3.Text = ""
        Text4.Text = ""
        Text5.Text = ""
        Text6.Text = ""
        Text7.Text = ""
        Text8.Text = ""
        Text9.Text = Format$(Now, "mmmm dd, yyyy") (out put is: December 15, 2013)
        Text10.Text = Format$(Now, ", mmmm dd, yyyy") (Is there any way I make it here as: ( December 15, 2014) ?
    End If

    Call Gen_ID(Text1)

End Sub

---

使用DateAdd函数

---

使用DateAdd函数

---

顺便问一下，我能再问一个问题吗？

DateAdd("yyyy", 1, Now)


Text10.Text = Format$(DateAdd("yyyy", 1, Now), ", mmmm dd, yyyy")