El problema es que el tipo de dato que estas manejando no es un String sino un DateTime, prueba con este código a ver como te va
Código VB:
Ver originalPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim c As DateTime = Date.Today
T1.Text = c
T2.Text = c.Year
T3.Text = c.Month
T4.Text = c.Day
End Sub
Saludos