just as a litte suggestion
Dim this as String()
this = CheckedListBox1.CheckedItems.Cast(Of String).ToArray
kinda the same as your Code, but gives already back the Array you want.
when you want the Array back to the seperated String..
Dim seperated as String = String.Join(",", this)