Try this, if you dont want the error to popup when an incorrect value is entered, comment this line to look like this...
'MsgBox Err.Description, vbInformation
It's change is on the AfterUpdate of the second field, but you can do it many other ways, hope this helps.
Edit: I only set it to...