Bonsoir
N'est ce pas plus simple comme ça ? :
TextBox1.Value = Date
TextBox2.Value = DateAdd("yyyy", 1, TextBox1.Value)
Je viens de tester ça marche : 27/11/2017 m'affiche dans la box 2 : 27/11/2018
Si l'on veut une date quelconque on peut faire aussi :
Private Sub TextBox1_AfterUpdate()
TextBox2.Value = DateAdd("yyyy", 1, TextBox1.Value)
End Sub
La date entée dans la box 1 est incrémentée de 1 an dans la 2