VB Code:
  1. Text1.Text = Format("01/01/" & Year(Now),"mm/dd/yyyy")