VBA 循环遍历界面获取CheckBox 选中状态，并返回CheckBox.Text上的内容

Question

循环获取的代码如下，界面中包含了 N个GroupBox ,N 个CheckBox，如遇到GroupBox那么循环跳入继续找CheckBox，直接完成遍历 查找到所有打勾的CheckBox名字 最后 返回

Sub SearchControls(ByRef rControls, ByRef value)

    For Each sControl In rControls
        If TypeOf sControl Is CheckBox Then
            If CType(sControl, CheckBox).Checked = True Then
                value = vale + CType(sControl, CheckBox).Text  '加入值
            End If
        End If
        If TypeOf sControl Is GroupBox Then
            SearchControls(CType(sControl, Control).Controls, value)
        End If
    Next

End Sub

代码是在 VB下写的，但是 CType 方法 在 VBA环境下 执行不了，有什么别的方法去替换么？
求指点！

Answer 1

VBA中如何用循环来遍历某个窗体中的所有控件?

技巧119、遍历控件的方法