Sub test()
Cells(1, 1) = DateSerial(1, 1, 2019)
Cells(2, 1) = CLng(DateSerial(1, 1, 2019))
End Sub
Range("A1").Value = CDate(Me.textBox1.Value)
Dim DA As Long
DA = CLng(DateSerial(Year(me.TextBox1.Value), Month(me.TextBox1.Value), Day(me.TextBox1.Value)))
Range("A1").Value = DA
Sub test()
Cells(1, 1) = DateSerial(1, 1, 2019)
Cells(2, 1) = CLng(DateSerial(1, 1, 2019))
End Sub