Dim maDate As Date = Now maTextBox.Text = CStr(DateAdd(DateInterval.Month, 1, maDate)) maTextBox.Text = CStr(DateAdd(DateInterval.Year, 1, maDate))