Добавить в CheckedListBox данные из колонки DataGridView

        Dim Str As String = ""
        For i As Integer = 0 To DataGridView1.Rows.Count - 1
            Str = Str + Me.DataGridView1.Rows(i).Cells(0).Value & Chr(13) + Chr(10)
        Next
        Str = String.Join(" ", Str.Split(Chr(13) + Chr(10)).Distinct())
        MessageBox.Show(Str)
 
        For j As Integer = 1 To Str.Length - 1
            CheckedListBox1.Items.Add(Str & Chr(13) + Chr(10))
        Next

        Dim Str As String = ""
        For i As Integer = 0 To DataGridView1.Rows.Count - 1
            Str = Str + Me.DataGridView1.Rows(i).Cells(0).Value & Chr(13) + Chr(10)
 
        Next
        Str = String.Join(" ", Str.Split(Chr(13) + Chr(10)).Distinct())
        CheckedListBox1.Items.Add(Str)

Dim Str As New List(Of String)
For i As Integer = 0 To DataGridView1.Rows.Count - 1
    Str.Add(DataGridView1.Rows(i).Cells(0).Value)
Next
Dim uStr() As String = Str.ToArray.Distinct
MessageBox.Show(String.Join(vbCrLf, uStr))
CheckedListBox1.Items.Clear()
CheckedListBox1.Items.AddRange(uStr)

Dim Str As New List(Of String)
For i As Integer = 0 To DataGridView1.Rows.Count - 2
    Str.Add(DataGridView1.Rows(i).Cells(0).Value)
Next
Dim uStr() As String = Str.Distinct().ToArray
MessageBox.Show(String.Join(vbCrLf, uStr))
CheckedListBox1.Items.Clear()
CheckedListBox1.Items.AddRange(uStr)