Will Text2 always become one year less than Text1 or has that just been inferred from the samples you present? If the need is to retain the year from Text2 and substitute the month and day from Text1, how about something like

 Thisform.Text2.Value = DATE(YEAR(thisform.Text2.Value), MONTH(this.Value), DAY(this.Value))
 Thisform.Text2.Refresh()

>First Question
>
>Dear Sir,
>
>I have two texboxes, datatype date.
>
>Text1 has date= 21-11-2003
>Text2 has date= 15-08-2002
>
>On the lostfocus of text1.value I want to write some codes to get following result
>
>The date of text1 go to text2 except year for example in text1 if I write 21-11-2003 then text2 must have 21-11-2002.
>
>Thanks in advance
>
>*--------------------------------
>More description of the question
>*--------------------------------
>Pleaes read the following line
>The date of text1 go to text2 except year
>
>In text2 the year must be remain as it is.
>Only date and month must change.
>
>Please help again