Can a UserForm have a change event?

Hello

I have multiple change event Private Subs for many textboxes in my userform, such as:

Private Sub txtY1B2E_PAYE_Change()
    txtY1B3S_PAYE.Value = txtY1B2E_PAYE.Value
End Sub

I tried combining these into one Change event but it doesn't seem to work. Is that because it just won't work or is there a way around it?

Private Sub frmWorkforceProjections_Change()
    txtY1B3S_PAYE.Value = txtY1B2E_PAYE.Value
    txtY1B4S_PAYE.Value = txtY1B3E_PAYE.Value
    txtY1B5S_PAYE.Value = txtY1B4E_PAYE.Value
    txtY1B6S_PAYE.Value = txtY1B5E_PAYE.Value
    txtY2B3S_PAYE.Value = txtY2B2E_PAYE.Value
    txtY2B4S_PAYE.Value = txtY2B3E_PAYE.Value
    txtY2B5S_PAYE.Value = txtY2B4E_PAYE.Value
    txtY2B6S_PAYE.Value = txtY2B5E_PAYE.Value
    txtY3B3S_PAYE.Value = txtY3B2E_PAYE.Value
    txtY3B4S_PAYE.Value = txtY3B3E_PAYE.Value
    txtY3B5S_PAYE.Value = txtY3B4E_PAYE.Value
    txtY3B6S_PAYE.Value = txtY3B5E_PAYE.Value
    txtY4B3S_PAYE.Value = txtY4B2E_PAYE.Value
    txtY4B4S_PAYE.Value = txtY4B3E_PAYE.Value
    txtY4B5S_PAYE.Value = txtY4B4E_PAYE.Value
    txtY4B6S_PAYE.Value = txtY4B5E_PAYE.Value
    txtY5B3S_PAYE.Value = txtY5B2E_PAYE.Value
    txtY5B4S_PAYE.Value = txtY5B3E_PAYE.Value
    txtY5B5S_PAYE.Value = txtY5B4E_PAYE.Value
    txtY5B6S_PAYE.Value = txtY5B5E_PAYE.Value

    txtY1B3S_NICer.Value = txtY1B2E_NICer.Value
    txtY1B4S_NICer.Value = txtY1B3E_NICer.Value
    txtY1B5S_NICer.Value = txtY1B4E_NICer.Value
    txtY1B6S_NICer.Value = txtY1B5E_NICer.Value
    txtY2B3S_NICer.Value = txtY2B2E_NICer.Value
    txtY2B4S_NICer.Value = txtY2B3E_NICer.Value
    txtY2B5S_NICer.Value = txtY2B4E_NICer.Value
    txtY2B6S_NICer.Value = txtY2B5E_NICer.Value
    txtY3B3S_NICer.Value = txtY3B2E_NICer.Value
    txtY3B4S_NICer.Value = txtY3B3E_NICer.Value
    txtY3B5S_NICer.Value = txtY3B4E_NICer.Value
    txtY3B6S_NICer.Value = txtY3B5E_NICer.Value
    txtY4B3S_NICer.Value = txtY4B2E_NICer.Value
    txtY4B4S_NICer.Value = txtY4B3E_NICer.Value
    txtY4B5S_NICer.Value = txtY4B4E_NICer.Value
    txtY4B6S_NICer.Value = txtY4B5E_NICer.Value
    txtY5B3S_NICer.Value = txtY5B2E_NICer.Value
    txtY5B4S_NICer.Value = txtY5B3E_NICer.Value
    txtY5B5S_NICer.Value = txtY5B4E_NICer.Value
    txtY5B6S_NICer.Value = txtY5B5E_NICer.Value

    txtY1B3S_NICee.Value = txtY1B2E_NICee.Value
    txtY1B4S_NICee.Value = txtY1B3E_NICee.Value
    txtY1B5S_NICee.Value = txtY1B4E_NICee.Value
    txtY1B6S_NICee.Value = txtY1B5E_NICee.Value
    txtY2B3S_NICee.Value = txtY2B2E_NICee.Value
    txtY2B4S_NICee.Value = txtY2B3E_NICee.Value
    txtY2B5S_NICee.Value = txtY2B4E_NICee.Value
    txtY2B6S_NICee.Value = txtY2B5E_NICee.Value
    txtY3B3S_NICee.Value = txtY3B2E_NICee.Value
    txtY3B4S_NICee.Value = txtY3B3E_NICee.Value
    txtY3B5S_NICee.Value = txtY3B4E_NICee.Value
    txtY3B6S_NICee.Value = txtY3B5E_NICee.Value
    txtY4B3S_NICee.Value = txtY4B2E_NICee.Value
    txtY4B4S_NICee.Value = txtY4B3E_NICee.Value
    txtY4B5S_NICee.Value = txtY4B4E_NICee.Value
    txtY4B6S_NICee.Value = txtY4B5E_NICee.Value
    txtY5B3S_NICee.Value = txtY5B2E_NICee.Value
    txtY5B4S_NICee.Value = txtY5B3E_NICee.Value
    txtY5B5S_NICee.Value = txtY5B4E_NICee.Value
    txtY5B6S_NICee.Value = txtY5B5E_NICee.Value
End Sub