Segue um exemplo:

Sub data_1Ano()
[B1] = VBA.DateAdd("yyyy", 1, Sheets("Plan1").Cells(1, "A").Value)
End Sub

Bom Dia....não entendi bem como coolocar no formulario vou anexa a planilha para voce me explicar melhor.... é um banco de cliente e gostaria de quando coloca-se a data da ultima visita ele me coloca-se um ano depois o retorno...

Desculpe, ja tive a cabeca melhor para logica...

Obrigado.