فى كود الفورم انشأ تكست واعرف رقمها وليكن 100 واكتب هذا الكود فى الفورم
Private Sub UserForm_Initialize()
TextBox100.Text = Date
End Sub
ثم
هذا الكود
Private Sub UserForm_Activate()
TextBox100.Value = Application.WorksheetFunction.Text(Date, "yyyy/mm/dd")
t = 0
End Sub