VBA-код с ошибкой.

[mozart2012]

Помогите,пожалуйста, не понимаю, как написать,чтобы заработало, не знакома практически с этим языком, пытаюсь сделать что-то по теории из книги, но тщетно.
Делаю тест в UserForm. Нужно,чтобы в зависимости от количества предполагаемо правильных ответов показывалась то рамка CheckBox, то OptionButtun. Имеется вот такой код, но он не работает, понимаю, что где-то огромная ошибка, но в силу незнания языка не могу её найти, исправьте,пожалуйста. Спасибо!

Sub FrmContent(QwNum As Integer)
Dim RwCnt As Integer
Dim FrameSelect As Boolean
RwCnt = 1
Do Until Sheets("Chapter02").Cells(RwCnt, 1) = QwNum
RwCnt = RwCnt + 1
Loop
FrameSelect = OneToAll(RwCnt + 1)
***
...далее в этой процедуре идет код, не имеющий отношение к ошибке...
***
Function OneToAll(RwCntStart As Integer) As Boolean
Dim RwCnt As Integer, Sum As Integer, CellVal As Integer
Sum = 0
RwCnt = RwCntStart
Do Until Sheets("Chapter02").Cells(RwCnt, 3) = ""
CellVal = Sheets("Chapter02").Cells(RwCnt, 3)
' if Sheets("Chapter02").Cells(RwCnt, 3)=1 then cellval=1 else
Sum = Sum + CellVal
RwCnt = RwCnt + 1
Loop
If OneToAll = (Sum = 1) Then frmTest.fmOb.Visible = True And frmTest.fmCbx.Visible = False Else
frmTest.fmCbx.Visible = True And frmTest.fmOb.Visible = False

End Function