Help! Adding Items to ListView with 2 columns

[rookisan]

Public Class Movies
    Dim a As Integer, b As Integer
    Dim titles(a) As String, rating(b) As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListView1.Items.Clear()
        Dim names As String, rate As String
        Dim listviewItem As ListViewItem
        names = TextBox1.Text
        rate = ComboBox1.Text
        titles(a) = names
        a = a + 1
        rating(b) = rate
        b = b + 1
        Array.Sort(titles)
        ReDim Preserve titles(a)
        ReDim Preserve rating(b)
        For Each str As String In titles
            For Each str2 As String In rating
                If Not IsNothing(str) Then
                    listviewItem = ListView1.Items.Add(str)
                    With listviewItem
                        .SubItems.Add(str2)
                    End With
                    TextBox1.Clear()
                End If
            Next
        Next
    End Sub
End Class

Whenever I click add, the Items in the first column prints twice. E.g I type in the text box Choco and choose the rating GP. This is what will happen:
Title Rating
Choco GP
Choco
I really need help with it.