CheckBox in Userform

Dear all,

Can you please guide me, how to update the same date into another sheet when i select the checkbox . the Following code i am using to save data.

Please Login or Register  to view this content.

if chkBox.value then sheets("sheet2").range("b1").value = me.txtDate

Will you be able to fix this in to my code ?
Checkbox name = CheckBox1
I want the data in Sheet6
The Following data should be capture in "Sheet6" when in click on the cmdAdd Button

Please Login or Register  to view this content.

Any Help ?