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