I imagine you have solved this problem by now. In the event you haven't, here is something, I believe, that will give you a step in the right direction:
Sub OnObjectChanged(ByVal Item)
Dim objTag
Dim selbutton
Dim buttonval
Set objTag = ScreenItems ("IOField4")
Set buttonval =...