Promenjljiva "On The Fly"

Code:

    For i = 1 To 4
        If CheckBox & I &.Value = True Then
           MsgBox "1"
        Else
           MsgBox "2"
        End If
    Next i

Code:

Dim a As Collection ' ovo je u deklaraciji

Private Sub UserForm_Initialize()
Set a = New Collection
a.Add CheckBox1
a.Add CheckBox2
a.Add CheckBox3
a.Add CheckBox4
'ovo ispod moze da ide i u nekoj drugoj subrutini
Dim n As Integer: n = 1
For Each Item In a
If Item.Value = True Then MsgBox n & " true" Else MsgBox n & " false"
n = n + 1
Next
End Sub

Code:

Private Sub UserForm_Click()
 For i = 1 To 2
        If Me.Controls("CheckBox" & i).Value = True Then
           MsgBox i & " je true"
        Else
           MsgBox i & " je false"
        End If
    Next i
End Sub