Userform issues

Hi there

I have a 2 part question that I am slightly puzzled by (I know this will seem like a day 1 beginners question for you).
I am using a userform with 4 textboxes to extract information from a worksheet using information in textbox 1. 1 box looks up a date but returns the date in numerical format (42682) instead of dd/mm/yyyy. The date is formatted correctly in the worksheet, but will not extract correctly to the userform. The code I'm using is:

If WorksheetFunction.CountIf(Sheet1.Range("D:D"), Me.KSTextBox.Value) = 0 Then
 MsgBox "This Knowledge Article does not exist"
 Me.KSTextBox.Value = ""
 Exit Sub
 End If
 
 With Me
 .DateTextBox = Application.WorksheetFunction.VLookup(Me.KSTextBox, Sheet1.Range("D2:K1000"), 4, 0)
 .SkillTextBox = Application.WorksheetFunction.VLookup(Me.KSTextBox, Sheet1.Range("D2:K1000"), 6, 0)
 .VersionTextBox = Application.WorksheetFunction.VLookup(Me.KSTextBox, Sheet1.Range("D2:K1000"), 8, 0)
 
 End With
 End Sub

I tried this code after the With Me command -

.DateTextBox = Application.WorksheetFunction.VLookupCDate(Me.KSTextBox), Sheet1.Range("D2:K1000"), 4, 0)

but this returns a faulty code line

The 2nd part of the question is, when I get the result, how do I change the date in the same cell that the result has extracted from if I need to update the date by overwriting in the result box? I'm sure the VLOOKUP function will not work on this