Return date format in userform textbox

Good day everyone.

What I'm trying to achieve is, the textbox should be able to return date value instead string from another sheet2.
In sheet2 where the data is, I've set the respective cell as date.

Once I run the userform, and click a partiular value from the listbox, I'm getting string "64322" instead of "1/1/2021"

I've tried this, but no luck.

Private Sub TextBox12_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 TextBox12.Text = Format$(TextBox12.Text, Range(TextBox12.ControlSource).NumberFormat)
 
 
End Sub

in your listbox event.

Me.TextBox12.Value = Format(Me.ListBox1.List(Me.ListBox1.ListIndex, 11), "dd/mm/yyyy")

in your Refresh Sub

With Me.ListBox1
    .ColumnHeads = True
    .ColumnCount = 26
    .ColumnWidths = "25,100,68,58,90,85,130,130,130,30,30,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0"

you were trying to read a value that did not exist in your listbox because you had not covered the total range.

You could save yourself 40 to 60 lines of code if you transferred data by looping through the textboxes to sheet cells

I have run through your code to demonstrate how little coding you need if using 'proper tables'.
Also in your particular app there is no need for a search routine - there is a direct link between the listindex and the table row.

This is way much better! The one that I have is bit buggy.
The direct link between the listindex and table row is VERY VERY helpful!
Gadzillion thanks torachan!

your new 'Table13' is on Sheet4 not Sheet2

Private Sub UserForm_Initialize()
Set sh2 = Sheet4
Set tbl1 = sh2.ListObjects("Table13")
Me.ListBox1.ColumnCount = 27
Me.ListBox1.ColumnWidths = "25,100,68,58,90,85,130,130,130,30,30,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0"
Call Refresh_Data
End Sub