如何更改vb中的时间以显示不同的日期

I'm currently using this,

我现在使用这个,

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Sheets("Sheet1").Range("K1").Value = Format(Now(), "mm-dd-yyyy")
End Sub
Private