在对象名[VBA]中包含循环计数器

Question

基本上我写了一个代码，用于userform。问题是userform是由其他宏创建的（复选框的数量不同，取决于字符串strNamn包含多少单词，这就是为什么userform必须由宏创建）。

我想以某种方式在行中包含循环计数器： 如果UserForm1.CheckBox0.Value = True则 这样做： 如果UserForm1.CheckBox（i）.Value = True则

但它显然不会像这样工作:(

有任何建议如何声明复选框以将行包含在行中吗？

执行宏的UserForm1中的代码如下：

Private Sub cmd_1_Click()
    Call clicker
End Sub

宏代码：

Sub clicker()
Dim strNamnOK As String
Dim strNamn As String
Dim strNamnA() As String
strNamn = "one, two, three, four"
strNamnA = Split(strNamn, ", ")
Dim intAmount As Integer
intAmount = UBound(strNamnA)
strNamnOK = ""
For i = 0 To intAmount
If UserForm1.CheckBox0.Value = True Then
strNamnOK = strNamnOK & " " & strNamnA(i)
End If
Next
strNamnOK = Left(strNamnOK, 12)
MsgBox strNamnOK
End Sub