Почему не работает код? VBA

[mozart2012]

Пишу тест в VBA на форме, совсем плохо знаю этот язык, помогите найти и справить ошибку, пожалуйста. Суть в том, чтобы в зависимости от количества вариантов ответов лишние "флажки" ответов убирались или появлялись с вариантом ответа. Ошибка либо в переменной либо в логике вообще? Вот сама "считающая" функция:

Function AnsQuan(RwCntSt As Integer) As Integer
Dim RwCnt As Integer, SumAns As Integer
SumAns = 0
RwCnt = RwCntSt
Do Until Sheets("Chapter02").Cells(RwCnt, 3) = ""
If Sheets("Chapter02").Cells(RwCnt, 3).Value Then SumAns = SumAns + 1
RwCnt = RwCnt + 1
Loop
AnsQuan = SumAns
End Function

А дальше её результаты вставляю вот сюда :

Sub FrmContent(QwNum As Integer)
Dim RwCnt As Integer
Dim AnsQuan As Integer
Dim FrameSelect As Boolean
RwCnt = 1
Do Until Sheets("Chapter02").Cells(RwCnt, 1) = QwNum
RwCnt = RwCnt + 1
Loop
FrameSelect = OneToAll(RwCnt + 1)


Select Case AnsQuan
Case 4
frmTest.obAns5.Visible = False
frmTest.obAns6.Visible = False
frmTest.cbxAns5.Visible = False
frmTest.cbxAns6.Visible = False
Case 5
frmTest.obAns5.Visible = True
frmTest.obAns6.Visible = False
frmTest.cbxAns5.Visible = True
frmTest.cbxAns6.Visible = False
Case 6
frmTest.obAns5.Visible = True
frmTest.obAns6.Visible = True
frmTest.cbxAns5.Visible = True
frmTest.cbxAns6.Visible = True
End Select

....*далее идёт код функции, не имеющей отношения к проблеме)*

[doober]

Сообщение от mozart2012

Пишу тест в VBA на форме, совсем плохо знаю этот язык, помогите найти и справить ошибку, пожалуйста. Суть в том, чтобы в зависимости от количества вариантов ответов лишние "флажки" ответов убирались или появлялись с вариантом ответа. Ошибка либо в переменной либо в логике вообще? Вот сама "считающая" функция:

Function AnsQuan(RwCntSt As Integer) As Integer
Dim RwCnt As Integer, SumAns As Integer
SumAns = 0
RwCnt = RwCntSt
Do Until Sheets("Chapter02").Cells(RwCnt, 3) = ""
If Sheets("Chapter02").Cells(RwCnt, 3).Value Then
'Какой тип данных в этой ячейке
SumAns = SumAns + 1
RwCnt = RwCnt + 1
Loop
AnsQuan = SumAns
End Function

А дальше её результаты вставляю вот сюда :

Sub FrmContent(QwNum As Integer)
Dim RwCnt As Integer
Dim AnsQuan As Integer' Имя переменной и функции одинаковы.Компилятор наверное охрип
Dim FrameSelect As Boolean
RwCnt = 1
Do Until Sheets("Chapter02").Cells(RwCnt, 1) = QwNum
RwCnt = RwCnt + 1
Loop
FrameSelect = OneToAll(RwCnt + 1)


Select Case AnsQuan
Case 4
frmTest.obAns5.Visible = False
frmTest.obAns6.Visible = False
frmTest.cbxAns5.Visible = False
frmTest.cbxAns6.Visible = False
Case 5
frmTest.obAns5.Visible = True
frmTest.obAns6.Visible = False
frmTest.cbxAns5.Visible = True
frmTest.cbxAns6.Visible = False
Case 6
frmTest.obAns5.Visible = True
frmTest.obAns6.Visible = True
frmTest.cbxAns5.Visible = True
frmTest.cbxAns6.Visible = True
End Select

....*далее идёт код функции, не имеющей отношения к проблеме)*

Выделил красным то.что сразу бросилось в глаза

.*далее идёт код функции, не имеющей отношения к проблеме)*

Ошибаетесь,если такие ошибки и в остальном коде,то надо смотреть его весь.
Лучше файлик прикрепить.