Text1.Text = Format(now,"dd/mm/yyyy")

Per il controllo, puoi usare le funzioni Day,Month,Year ...