Private Sub Command1_Click()
    time1 = Time
    date1 = Date
    Debug.Print time1, date1
End Sub