Export Date from text box in userform to dtpicker in sheet

[jo_hivera]

Hello!

i'm having trouble linking a Date box from a userform to a dtpicker in sheet (because i need the dtpicker with calendar available if the date is to be altered).

I have tried this code, but obviously it didn't work...DATE1 is the box in the userform and DTPicker1 (from the development section) is inserted in the sheet

Private Sub Submit1_Click()
 Dim Ws As Worksheet
 Set Ws = Worksheets("Sheet1")
    Ws.Cells(9, 11).Value = PART1.Value
    Ws.Cells(10, 11).Value = FILE1.Value
    Ws.Cells(9, 19).Value = ANNUAL1.Value
    Ws.Cells(10, 20).Value = MINLSIZE1.Value
    Ws.Cells(11, 20).Value = PTSHOT1.Value
    Ws.Cells(13, 11).Value = INJ1.Value
    Ws.Cells(13, 17).Value = INJ2.Value
    Ws.Cells(14, 11).Value = INJ3.Value
    Ws.Cells(16, 11).Value = RISK1.Value
    
Me.DATE1.Value = Ws.DTPicker1.Value
    
 PART1.Value = ""
 FILE1.Value = ""
 ANNUAL1.Value = ""
 MINLSIZE1.Value = ""
 PTSHOT1.Value = ""
 INJ1.Value = ""
 INJ2.Value = ""
 INJ3.Value = ""
 RISK1.Value = ""
 
 UserForm2.Hide

Suggestions?
Thanks in advance.