Automatically Writing Date To Sheet On Button Click ()

I have a user form where the user selects items from combo boxes or enters information into text boxes. When the user clicks the command button the selections are written to the spreadsheet along with an auto number. I am trying to add an auto date in as well and have been playing with using the NOW() function but I am having some problems calling it. Here is the

Private Sub cmbtnAdd_Click()
Dim NewRow As String
Dim NewNumber As String
With Worksheets("Sheet1")
NewRow = .Range("A65536").End(xlUp).Row + 1
NewNumber = .Cells(NewRow - 1, 1).Value + 1
.Cells(NewRow, 1).Value = NewNumber
.Cells(NewRow, 2).Value = Me.ComboBox2.Value
.Cells(NewRow, 3).Value = Me.TextBox1.Value
.Cells(NewRow, 4).Value = Me.TextBox2.Value
End With
End Sub

I was trying something like this:

Dim NewDate As Date
NewDate = DateSerial(Year(dDate), Month(dDate), Day(dDate))
.Cells(NewRow,5).Value = New Date