  For Each ctrl In Frame0.Controls     If TypeOf ctrl Is msforms.OptionButton Then         If ctrl.Value = True Then              F0D = True              Exit For              End If        End If    Next ctrl  If F0D = False Then MsgBox "No Option Selected In Frame 0" End If  For Each ctrl In Frame0.Controls     If TypeOf ctrl Is msforms.OptionButton Then         If ctrl.Value = True Then              F0D = True              Exit For              End If        End If    Next ctrl  If F0D = False Then MsgBox "No Option Selected In Frame 0" End If  For Each ctrl In Frame0.Controls     If TypeOf ctrl Is msforms.OptionButton Then         If ctrl.Value = True Then              F0D = True              Exit For              End If        End If    Next ctrl  If F0D = False Then MsgBox "No Option Selected In Frame 0" End If  For Each ctrl In Frame0.Controls     If TypeOf ctrl Is msforms.OptionButton Then         If ctrl.Value = True Then              F0D = True              Exit For              End If        End If    Next ctrl  If F0D = False Then MsgBox "No Option Selected In Frame 0" End If  