Date Help. Adding to current date.

[Athley]

Is it something like this you mean?

Dim d As Date = Date.Now
MsgBox(d.AddDays(30).ToString)