txtDate.Text = Format(Now(), "dddd MMM d yyyy")
        txtTime.Text = Format(Now(), "hh:mm:ss tt")