CDate not working in the correct format

Do you mean using CDate to enter to the sheet?
maybe

 If Not IsEmpty(Me.txtdataregularização) Then
        ActiveCell.Offset(0, 9) = CDate(txtdataregularização)
        End If

I wouldn't use the loop to find the next empty row either, this could prove slow in larger databases. Take a look at the database form