Recorrer registro por registro un CheckBoxList

Dim i As Integer

For i=0 To checkboxlist1.Items.Count - 1

If checkboxlist1.Items(i).Selected Then

Message.Text &= checkboxlist1.Items(i).Text & "
"

End If

Next