Saúl:
Es más facil preguntar el value del Optiongroup
lnValorSeleccionado=thisform.OptionGroup1.Value
if lnValorSeleccionado=0
Messagebox("No seleccionó un corno!") && mensaje histérico
Return
endif
Apostilla:
Normalmente programas, cuando lo necesitas, el click o el interactivechange del optiongroup y no pones nada en los Option.