credo che questo vada bene:

codice:
Private Sub Form_Load()
Dim a As Date, b As Date

a = "12/12/2002"
b = a + Day(30)

Text1.Text = b

End Sub
Ciao Pedar :metallica