For-Schleife mit VariablenNamen

Die Checkboxen heißen wie folgt.
1) Chat_cb01
2) Chat_cb02
3) Chat_cb03

Ich möchte dies mit einer For-Schleife realisieren um den Code gering zu halten.

Bsp:

For i = 1 To 3
If Sheet1.(Chat_cb(&i))=true then
Msgbox prompt:="CB" &i "ist true"
end if
Next i

Nur leider funktioniert es nicht so wie es soll! ;)