复选框从字符串中的“0”到“1”

Question

我有一个程序，当选中某些复选框时，后面的代码从0变为1.这是我的代码：

 Dim a As String = "000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000"

    If CheckBox1.Checked = True Then

        a(0) = "1"
        a = Left(a, 1) + Right(a, 89)
        MsgBox(a)

    Else
        MsgBox("Wrong!")

    End If

显然a(0)="1"是错误的。

此代码仅适用于1个复选框，但如果我有90个复选框，我该如何编码？