>> 503
年を＋１したいなら
i = DateAdd("yyyy", 1, i)

固定で2006にしたいなら
i = DateSerial(2006, Month(i), Day(i))

でどうだ。
変数iはDate型で、時刻部はしらんぞ。