VBA技术需求：识别选中的ToggleButton并复制标题至另一用户窗体TextBox

原代码的核心问题是嵌套循环逻辑错误：外层循环遍历TextBox，内层循环遍历所有ToggleButton，导致每个TextBox会被所有选中的ToggleButton重复赋值，最终所有TextBox都显示最后一个选中的ToggleButton标题。另外，选中计数的逻辑也有误（TBTrueCount = TBTrueCount - CLng(ctrl.Value) 应该是加法）。

Sub tog()
    Dim TBTrueCount As Long
    Dim txtBoxIndex As Long
    Dim ctrl As Control
    Dim ck As Boolean ' 用Boolean更贴合逻辑，替代原0/1的ck变量
    
    ck = False
    txtBoxIndex = 20 ' 第一个目标TextBox的编号
    
    ' 先清空所有目标TextBox（可选，按需保留）
    For txtBoxIndex = 20 To 35
        Controle.Controls("TextBox" & txtBoxIndex) = ""
    Next txtBoxIndex
    txtBoxIndex = 20 ' 重置索引
    
    ' 遍历Produtos窗体的所有ToggleButton
    For Each ctrl In Produtos.Controls
        If TypeName(ctrl) = "ToggleButton" Then
            Dim tggl As ToggleButton
            Set tggl = ctrl
            
            ' 更新选中计数并处理状态
            If tggl.Value = True Then
                TBTrueCount = TBTrueCount + 1
                ' 超过16个选中时，取消当前按钮选中并标记提示
                If TBTrueCount > 16 Then
                    ck = True
                    tggl.Value = False
                    tggl.BackColor = vbButtonFace
                Else
                    tggl.BackColor = vbGreen
                    ' 将标题填入对应TextBox，索引自增
                    Controle.Controls("TextBox" & txtBoxIndex) = tggl.Caption
                    txtBoxIndex = txtBoxIndex + 1
                End If
            Else
                tggl.BackColor = vbButtonFace
            End If
        End If
    Next ctrl
    
    ' 提示超过最大选择数
    If ck Then
        MsgBox "Selecionado numero máximo de Produtos"
    End If
End Sub

• 重构循环逻辑：只遍历一次ToggleButton，用一个索引变量跟踪当前要填充的TextBox，每找到一个选中的ToggleButton，就把标题填入对应TextBox后自增索引，彻底避免重复赋值问题。
• 修正计数逻辑：选中ToggleButton时计数加1，超过16则取消当前按钮的选中状态。
• 优化变量类型：把ck改为Boolean类型，更符合逻辑语义。
• 可选清空操作：提前清空所有目标TextBox，避免残留旧数据干扰结果。

内容的提问来源于stack exchange，提问作者DebD