Private Sub optAbhängig_Click(Index As Integer) 
  Select Case Index 
    Case 1 
      optAbhängig(1).Tag = "yes"
    Case 2 
      optAbhängig(1).Tag = "no"
  End Select 
End Sub

Private Sub cmdOK_Click() 
  txtFeld.Text = "Visible: " & optAbhängig(1).Tag
End sub