Pasar valor de datapicker en userform a un textbox

hola , tengo un problema con el datapicker

No consigo ingresar una fecha en un textbox, ambos esta en un userform

¿es problema de formatos?

he intentado est pero nada de nada, ni en userform ni en sheet

With DTPicker1
.Format = dtpShortDate
ActiveCell = UF_UD.DTPicker1.Value
TextBox3.Value = .Value '.ToString("MM/dd/yyyy")
strDate = Format(DTPicker1, "dd-mmm-yy")
TextBox3 = strDate
If TextBox3 <> "" Then
TextBox4 = .Value
End With
TextBox3.Value = DTPicker1.Value
End If

alguna sugerencia porfavor

gracias