Visual Basic - Calendario Visual Basic

NECESITO UN CODIGO POR MEDIO DEL CUAL PUEDA HACER LO SIGUIENTE:
EN UN FORMULARIO TENGO UN CONTROL CALENDARIO Y ADEMAS UN CUADRO DE TEXTO,Y QUIERO Q CUANDO LE HAGA UN CLIC A UNA FECHA DEL CALENDARIO,ME SALGA EN EL CUADRO DE TEXTO SI ES LUNES,MARTES,MIERCOLES,.....DOMINGO. ES URGENTE!!!!!!!!!!!!!! GRACIAS :):):):):):)

Pudes usarlo haciendo uso del Format
Ej:
Private Sub DTPicker1_Change()
Text1 = Format(DTPicker1.Value, "dddd")
End Sub