[VB6] Incremento data

[Dardino]

Dim data As Date
data = Now
data = DateAdd("m", 1, data)