Private Sub Check()
  Dim oControl As Control
  For Each oControl In screen_form.Controls
    If TypeOf oControl Is OptionButton Then
      oControl.Value = False
    End If
  Next
End Sub
 
Private Sub Option1_Click()
    Check
    DoEvents
    Option1.Value = True
End Sub