Text1.Text = Format(Now, "dd-mmm-yyyy hh:mm:ss")
Text1.text = Date & Time
MsgBox Chr("&hC1")
MsgBox Chr("&hDA5D")