Sub ki438()
  With UserForm1
    .txt1.Text = 0
    .txt2.Text = Date
   End With
    UserForm1.Show
End Sub