سلام میتونین از قطعه کد زیر استفاده کنید :

For Each i In CheckedListBox1.CheckedItems

            Me.Text += i.ToString() + ","

        Next