Código
If Option1 And Option2 And Option3 And Option4 And Option5 = False Then x = MsgBox("debe seleccionar una opcion", vbCritical, "Opciones") End If
Nunca entrará y te explico porque, pero antes ve este otro code
Código
Private Sub Command1_Click() If Option1 Then MsgBox "Entro porque el OptionButton esta seleccionado", vbCritical, "Prueba" End If End Sub
Cuando le colocas la condición "If Option1 Then" lo que estas diciéndole es, si el option esta en true, es decir, activo, seleccionado, entones entra...
En tu code nunca entrará porque ese "= False" del final, solo esta afectando al option5, a los demás no, por lo tanto, estas diciendo que si todos están activos menos el ultimo, diga "no hay ninguno seleccionado" lo que es ilógico, además que debes tener todos los optionbutton o dentro de un frame o en el mismo form...
En conclusión, colócale a todos el igual a false.
y si no vas a usar lo que se almacena en la variable X, no veo por que la usas, solo que me digas que si tiene un fin.