Hi,
This bit of code will clear the userform and leave the date inplace.
Code:
Private Sub CommandButton2_Click()
With UserForm1
.inmate.Text = ""
.adc.Text = ""
.race.Text = ""
.dorm.Text = ""
.house.Text = ""
.kitchen.Text = ""
.job.Text = ""
.preference.Text = ""
End With
End Sub
Hope this helps in part of your request.