Скинуть второй столбец listview в listbox

 For i = 0 To ListView1.Items.Count - 1
            If ListView1.Items.Item(i).SubItems.Count > 1 Then
                If ListView1.Items.Item(i).SubItems(1).Text.Length > 0 Then
                    ListBox1.Items.Add(ListView1.Items.Item(i).SubItems(1).Text)
                End If
            End If
        Next

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        clr_lstv()
        For i = 0 To ListView1.Items.Count - 1
            If ListView1.Items.Item(i).SubItems.Count > 1 Then
                If ListView1.Items.Item(i).SubItems(1).Text.Length > 0 And ListView1.Items.Item(i).SubItems(2).Text.ToLower = "yes" Then
                    ListBox1.Items.Add(ListView1.Items.Item(i).SubItems(0).Text)
                End If
            End If
        Next
 
    End Sub
    Sub clr_lstv()
        For i = ListView1.Items.Count - 1 To 0 Step -1
            If ListView1.Items.Item(i).Text.ToLower.StartsWith("nbr") Then
                ListView1.Items.RemoveAt(i)
            End If
        Next
       
    End Sub

   Sub clr_lstv()
        For i = ListBox2.Items.Count - 1 To 0 Step -1
            If ListBox2.Items.Item(i).Text.ToLower.StartsWith("NBR") Then
                ListBox2.Items.RemoveAt(i)
            End If
        Next
    End Sub

Sub clr_lstv()
        For i = ListBox2.Items.Count - 1 To 0 Step -1
            If ListBox2.Items.Item(i).ToString.ToLower.StartsWith("nbr") Then
                ListBox2.Items.RemoveAt(i)
            End If
        Next
    End Sub