Cantidad de CheckBoxList en un Texboxt

[jaullo]

Se me ocurre algo asi

Código ASP:

Sub Check_Clicked(sender As Object, e As EventArgs)
 
         Dim i,a As Integer
          For i = 0 To checkboxlist1.Items.Count - 1
             If checkboxlist1.Items(i).Selected Then
               a+=1
             End If
          Next
label1.Text = a  & "<br />"
       End Sub