[Resolvido] Acrescentando dias na data atual?

Olá pessoal,

Eu gostaria do seguinte: Eu tenho um comando que imprime a data atual, que fica assim por exemplo: 08/12/2008, mas queria que ele exibesse a data do mês posterior, que seria no caso assim: 08/01/2009 entendeu?

O código da impressão data atual é:

VarData = "" & day(Date) & "/" & month(Date) & "/" & year(Date) & ""

Obrigado a todos!

Fico no aguardo!

Marcus Vinicius