Visual Basic - Problema con OCX DTPicker y TextBox

Amigos:

Espero que me puedan ayudar, mi problema es el siguiente:

El objeto DTPicker no tiene las propiedades text ó caption para poder dejarlo en blanco, es por eso que me cree una ocx con un DTPicker y una caja de texto, lo que logro con esta ocx es dejar en la caja de texto el Value de DTPicker y tambien cree una sub rutina para borrar el contenido de la caja de texto, este es el codigo

Public Sub Borrar()
TEXTO.Text = ""
End Sub

Private Sub FECHA_Change()
TEXTO.Text = FECHA.Value
End Sub

lo que no he podido lograr es, cuando inserto esta ocx en mis proyecos no se como recuperar el contenido de la caja de texto, osea la fecha que esta contiene.

De antemano muchas gracias.

Eso es lo más volao que he visto, es más facil tener un maskedit y cargarle la fecha de hoy o del día que quieras.