Copy my files + Date

[patel]

Sub Copia_File()
    Origine = ThisWorkbook.Path & "\Goods\" & TextBox2.Text & ".db4"
    Copia = ThisWorkbook.Path & "\Goods\" & TextBox3.Text &  Format(Date, "dd-mm-yy")  & ".db4"
    FileCopy Origine, Copia
End Sub