Listbox items with date display numbers instead of date format in a textbox

Private Sub cmdEdit_Click()
Dim lngCol As Long
Dim findvalue As Range
Dim cNum As Integer
Dim DataSH As Worksheet
Dim lRow As Long
Dim srNextRow&, strListBox$, i%




    strListBox = ""
    Sheets("Sheet1").Select




Application.ScreenUpdating = False
Set DataSH = Sheet1




If txtStu1.Value = "" Or txtStu2.Value = "" Then
MsgBox "There is not data to edit"
Exit Sub
End If




Set findvalue = DataSH.Range("A:A"). _
Find(What:=Me.txtStu1.Value, LookIn:=xlValues, LookAt:=xlWhole)
findvalue = txtStu1.Value




findvalue.Offset(0, 1) = txtStu2.Value
findvalue.Offset(0, 2) = txtStu3.Value
findvalue.Offset(0, 3) = txtStu4.Value
findvalue.Offset(0, 4) = txtStu5.Value
findvalue.Offset(0, 5) = txtStu5.Value
'findvalue.Offset(0, 6) = txtStu6.Value
findvalue.Offset(0, 6) = txtStu7.Value
findvalue.Offset(0, 7) = txtStu8.Value
findvalue.Offset(0, 8) = txtStu9.Value
findvalue.Offset(0, 9) = txtStu10.Value
findvalue.Offset(0, 10) = chLeaver.Value
findvalue.Offset(0, 11) = txtStu12.Value




Me.txtStu7.Value = Me.DTPicker1.Value.ToShortDateString
Me.txtStu8.Value = Me.DTPicker2.Value.ToShortDateString
Me.txtStu9.Value = Me.DTPicker3.Value.ToShortDateString
Me.txtStu10.Value = Me.DTPicker4.Value.ToShortDateString

Private Sub cmdAdd_Click()
    
    Dim lRow As Long
    Dim ws As Worksheet
    Dim response As MsoAlertButtonType
    Dim srNextRow&, strListBox$, i%
    strListBox = ""
    Sheets("Sheet1").Select




   
 
    Set ws = Worksheets("Sheet1")
    lRow = ws.Cells(Rows.Count, 8).End(xlUp).Offset(1, 0).Row
    With ws
        
        .Cells(lRow, 1).Value = Me.txtFirstName.Value
        .Cells(lRow, 2).Value = Me.txtLastName.Value
        .Cells(lRow, 3).Value = Me.cboLocation.Value
        .Cells(lRow, 4).Value = Me.cboJobRole.Value
        .Cells(lRow, 5).Value = Me.ListBox1.Value
        '.Cells(lRow, 5).Value = Me.ListBox2.Value
        '.Cells(lRow, 6).Value = Me.ListBox2.Value
        '.Cells(lRow, 6).Value = Me.DTPicker1.Value
        .Cells(lRow, 7).Value = Me.DTPicker1.Value
        .Cells(lRow, 8).Value = Me.DTPicker2.Value
        .Cells(lRow, 9).Value = Me.DTPicker3.Value
        .Cells(lRow, 10).Value = Me.DTPicker4.Value
        .Cells(lRow, 10).Value = Me.txtEmail.Value
        .Cells(lRow, 11).Value = Me.txtEmail.Value
        
       
    End With
    Me.ListBox2.Value = ""
    Me.ListBox1.Value = ""
    Me.txtFirstName.Value = ""
    Me.txtLastName.Value = ""
    Me.txtEmail.Value = ""
    Me.cboJobRole.Value = ""
    Me.cboLocation.Value = ""
   
    
    
    MsgBox "Student successfully registered"
        
           response = MsgBox("Do you want to enter anoter Record?", _
           vbYesNo)
        If reponse = vbYes Then
           Me.txtFirstName.SetFocus
          
        Else
           Load Me
         
        End If
        




        Me.DTPicker1.Value = Me.DTPicker1.Value
        Me.DTPicker1.Value = Format(DTPicker1.Value, " dd MM , yyyy")
        Me.DTPicker2.Value = Me.DTPicker1.Value
        Me.DTPicker2.Value = Format(DTPicker2.Value, " dd MM , yyyy")
        Me.DTPicker3.Value = Me.DTPicker1.Value
        Me.DTPicker3.Value = Format(DTPicker3.Value, " dd MM , yyyy")
        Me.DTPicker4.Value = DTPicker1.Value
        Me.DTPicker4.Value = Format(DTPicker4.Value, " dd MM , yyyy")
'     Next
       
        ActiveCell.Offset(0, 5).Select
        With Worksheets("Sheet1")
       
For Y = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(Y) = True Then strListBox = strListBox & ListBox1.List(Y) & " ; "
Next Y
If Len(strListBox) > 0 Then
strListBox = Mid(strListBox, 1, Len(strListBox) - 1)
.Cells(lRow, 5).Value = strListBox
Else
If Len(strListBox) = 0 Then
.Cells(lRow, 5).Value = " "
End If
End If




End With
End Sub