So for the On Current:
Call SetLockedEnabled(Me, "YourOptionGroupName", "YourTextBoxName")
Call SetLockedEnabled(Me, "YourOptionGroupName", "YourTextBoxName")
Call SetLockedEnabled(Me, "YourOptionGroupName", "YourTextBoxName")
Call SetLockedEnabled(Me, "YourOptionGroupName", "YourTextBoxName")...