Check box VBA

[Mitt1]

Hello please have a look at this image:
When the checkbox is clicked I would like to make the trading address info (in business details) appear in the account address info.
Does anyone know any VBA to do this?

 

[Ranman256]

Sub chkBox_Afterupdate()
If chkBox.value then
   TxtAddr2= txtAddr1
    TxtCity2= txtCity1
Else
    TxtAddr2= ""
    TxtCity2= ""
End if
End sub